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si 


100 CALL CLEAR :: CALL MAGNIFY(4) Ex. dB. += 

110 FOR I=88 TO 140 STEP 4::: READ S$ :: CALL CHAR(I,S$):: NEXT I 

120 DATA 01010003070707030707060E1C181818B0B01090F080FOBOB0C0E07030303030 

140 DATA 01010003070707030707060E1C181818808000FF8380F0B080C0E07030303030 

150 DATA 01010003030303030707060E1C181818B0B01090F080FF8380C0E07030303030 

150 DATA 01010003030303030707060E1C181818B6B61292F6FC808080C0E07030303030 

170 DATA 01010003070707030707060E1C18181883870CF88080F0B080C0E07030303030 

180 DATA 01010003030303030707060E1C181818B0B010FFF 380808080C0E07030303030 

190 DATA 00000000000000000006CF DF DF0C070300000000000000 183C76E6FFFF 

191 DATA 0DOD0O8090FOL0FOD0103070E0COCOCOCBOB000C0E0EOEOC0E0E0607038181818 

192 DATA 010100FFC1010F0D0103070E0COCOCOCB08000C0E0E0E0C0E0E06807038181818 

193 DATA 0DODO8090FOLFFC10103070E0COCOCOC808000C0C0C0C0C0E0E0407038181818 

194 DATA 6D6D48496F3F01010103070E0COCOCOC808000C0C0C0C0C0E0E0607038181818 

195 DATA CIE1301F01010F0D0103070E0COCOCOC8B08000C0E0E0E0C0E0E0607038181818 

196 DATA O0DODOBSFFCFO101010103070E0COCOCOC808000C0C0C0C0C0E0E0607038181818 

197 DATA 00000000000000183C6E67FFFF00000000000000000000000060F 3FBFB30E0CO 

200 OPTION BASE 1 :: DIM F(2),SP(2),FIG(2),COLP(2),PT(2),K0(2),X(2),C(2),KOS(2), 
SCH(6,6) 

210 CALL COLOR(5,9,1):: CALL COLOR(6,3,1):: CALL COLOR(7,11,1) 

220 FOR I=64 TO 80 STEP 8 :: CALL CHARCI,"FFFF"):: CALL CHAR(I+1,"0103060C183060 
C0"):: CALL CHAR(I+2, "80C06030180C0603"):: NEXT I 

230 CALL CHAR(75, "FFFFFFFFFFFFFFFF"):: CALL VCHAR(12,8,75,5):: CALL VCHAR(12,26, 
75,5):: CALL HCHAR(14,9,64,17):: CALL HCHAR(15,9,80,17) 

240 CALL HCHAR(16,9,72,17):: CALL VCHAR(16,3,75,5):: CALL VCHAR(16,31,75,5) 

250 FOR 0=4 TO 7 :: R=21-0 :: CALL HCHAR(R,0,65):: CALL HCHAR(R+1,0,81):: CALL H 
CHAR (R+2,0,73):: NEXT @ 

260 FOR 0=27 TO 30 :: R=0-13 :: CALL HCHAR(R,0,66):: CALL HCHAR(R+1,0,82):: CALL 
HCHAR (R+2,0,74):: NEXT Q 

270 CALL HCHAR(18,4,64,27):: CALL HCHAR(19,4,80,27):: CALL HCHAR(20,4,72,27):: C 
ALL HCHAR(22,1,75,96) 

290 C(1)=2 :: C(2)=16 

302 FOR I=i TO 6 :: FOR J= 
303 DATA 0,0,0,0,0,0,1,1,2 
304 DATA 1,4,2,1,4,1,1,4,1 
305 DISPLAY AT(5,12): : 
306 O=0M :: KOS(1),KO 
ALL HCHAR(21,1,32,32) 
310 SP(1)=2 :: SP(2)=3 :: FIG(1)=88 :: FIG(2)=116 1: COLP(1),COLP(2),K0(1),K0(2) 
=0 


DT :: SCH(I,J)=DT :: NEXT J:: NEXT I 


1,1 ' 
1,4 , 

050 200 :: PT(1),PT(2)=0 :: UM,DM=1000 
S(2)=0 T(1,14):RIP :: CALL HCHAR(7,1,32,32):: C 


QUO 
OLIMPIADI ’84 


320 0=0+1 :: X{1)=96 :: X(2)=136 :: CALL SPRITE(£2,88,C(1),103,96,£3,116,C(2),10 
3,136):: CALL DELSPRITE(£1) 

325 FOR U=1 TO UM :: NEXT U :: CALL SOUND(DM, 440,1) 

330 FOR I=1 TO 2 _:: IF F(I)<0 THEN F(I)=F(I)+1 :: GOTO 500 

340 CALL KEY{(I,K,S):: IF k=18 THEN GOSUB 600 :: F(I)=F(I)+1 :: GOTO 500 

350 IF F(I)=0 THEN GOSUB 600 :: GOSUB 700 :: GOTO 500 

360 CALL JOYST(I,A,B):: IF A=4#*SGN(I-1.5)THEN 500 

370 IF A=0 AND B=0 THEN FIG(I)=88+28*(I-1):: COLP(I)=1 :: GOTO 430 

380 IF A=0 AND B=4 AND COLP(I)<>4 THEN FIG(I)=100+28*(I-1):: COLP(I)=4 :: GOTO 4 


390 IF A=0 AND B=-4 AND COLP(I)<>3 THEN FIG(I)=96+28*(I-1):: COLP(I)=3 :: GOTO 4 


400 IF B=0 AND COLP(I)<>2 THEN FIG(I)=92+28#%(I-1):: COLP(I)=2 :: GOTO 430 

410 IF B=4 AND COLP(I)<>5 THEN COLP(I)=5 :: FIG(I)=104+28*(I-1):: GOTO 430 

420 IF B=-4 AND COLP(I)<>%6 THEN COLP(I)=6 :: FIG(I)=108+(I-1)*28 

430 IF SP(3-I)<>1 THEN SP(I)=1 :: CALL DELSPRITE(£I+1):: CALL SPRITE(£1,FIG(I),C 
(1) ,103,X(I))ELSE CALL PATTERN(£I+1,FIG(I)) 

440 F(I)=-F(1):: DIST=ABS(X(1)-X(2)):: VI=ABS(18-DIST):: PREC=1-V1/6 1: IF PREC< 
O THEN PREC=0 

460 A1=INT((FIG(I)-60-28*I)/4)+1 :: AZ=INT((FIG(3-1)-60-(3-1)#*28)/4)+1 :: PU=INT 
(-F(1)#SCH(A1,A2)#PREC):: CALL SUONA(PU) 

465 IF PU>O THEN F(3-I)=-INT(PU/2):: KO(I)=KO(I)+PU :: KO(3-1)=0 

470 PT(I)=PT(I)+PU :: IF KOCI)>6 THEN 800 

480 DISPLAY AT(5,12):PT(1)5PT(2) 

500 NEXT I :: 0=0-1 :: IF 0<62 THEN DISPLAY AT(21,26):INT(0/2) 

510 IF 0=0 THEN 880 ELSE 330 

500 FIG(I)=88+28*(I-1) 

610 IF SP(I)=1 THEN SP(I)=I+1 :: CALL DELSPRITE(£1):: CALL SPRITE(£I+1,FIG(I),C( 
1),103,X(I))ELSE CALL PATTERN(£I+1,FIG(I)) 

620 RETURN 

700 COLP(I)=1 :: CALL JOYST(I,A,B):: IF A=0 THEN RETURN 

710 X(I)=X(I)+A/2 

720 IF X(I)<44 OR X(I)>190 OR ABS(X(I)-X(3-I))<12 THEN X(I)=X(I)-A/2 ELSE CALL L 
OCATE (£I+1,103,X(I)) 

730 RETURN 

800 Uk=1 :: CT=0 :: U=3-I :: FIG(U)=112+28#(U-1):: IF SP(U)=1 THEN CALL DELSPRIT 
E(£1):: SP(U)=U+1 :: CALL SPRITE(£U+1,FIG(U),C(U),103,X(U)) 

805 MIH=12 :: CALL PATTERN(£SP(U),FIG(U)):: KOS(U)=KOS(U)+1 :: IF KOS(U)=3 THEN 
850 

810 FOR J=MIH TO KOCI)*2 STEP UK :: DISPLAY AT(7,14):CT :: IF CT=10 THEN 850 ELS 
E CT=CT+1 

820 FOR Y=1 TO 300 :: NEXT Y :: 0=0-2 :: IF 0<=0 THEN 830 ELSE IF 0<62 THEN DISP 
LAY AT(21,26):INT(0/2) 

821 IF J=14+KO0S(U)#*4 THEN 825 

822 NEXT J :: GOTO 830 

825 Uk=2 :: MIH=15+KOS(U)*4 :: GOTO 810 

830 PT(I)=PT(I)+10 1: KO(1),K0(2)=0 :: DISPLAY AT(5,12):PT(1)5PT(2):: CALL HCHAR 
(7,11,32,8)s: UM=1 1: DM=1 1: IF 0<=0 THEN 880 ELSE 320 

850 GOTO 860 

860 CALL KEY(3,K,S):: IF S=0 THEN 860 ELSE CALL HCHAR(5,32,160):: GOTO 305 

880 CALL SOUND(1000,440,0):: IF RIP=3 THEN 850 ELSE RIP=RIP+1 :: DM=1000 :: UM=3 
000 :: GOTO 306 

900 SUB SUONA (R):: H=10000 :: IF R>.7 THEN H=1760 :: IF R>1.9 THEN H=880 :: IF R 
>3.7 THEN H=440 :: IF R>7.6 THEN H=220 :: IF R>11 THEN H=110 

910 CALL SOUND(100,H,0):: SUBEND 


ATLETICA 
QRO 100 METRI 
ss Ren 
OLIMPIADI ’84 Eye. 


10 CALL CLEAR :: DISPLAY AT(3,3): "ATLETICA 1 
100, 200,400 METRI" :: FOR I=1 TO 780 :: NEXT I 


90 ON WARNING NEXT 23 -W 
100 OPTION BASE 1 :: DIM K(2),TA(3),AR(3) , NOM$(3) 
110 NOM$(1)="BIANCO" :: NOM$(2)="NERO" :: NOM$(3)="COMPUTER" 


130 CALL DELSPRITE(ALL):: CALL CLEAR 
133 DISPLAY AT(22,3): "SCEGLI QUALE GARA FARE" 

135 ACCEPT AT(24,5)SIZE(3)VALIDATE("1240"):GARA :: CALL COLOR(14,12,9):: CALL CH 
AR(136, "FFFF") 

140 CALL MAGNIFY(3):: IF GARA=100 THEN VP=-3 :: VS=6 :: CALL CLEAR :: GOSUB 500 

ELSE 150 

141 GOSUB 10000 :: BAS=(TA(AR(3))-TA(AR(1)))/90+7.8 

142 FOR I=1 TO 3 :: DISPLAY AT(I*2,5):USING 145:I,NOM$(AR(I)),TAC(AR(I))/10+BAS : 
: NEXT I 

143 IF GARA<>400 THEN DISPLAY AT(8,5):USING " VENTO ££.££":VEN#*3 

144 GOTO 133 

145 IMAGE £! £££EFFEFFFE ££.££ 

150 IF GARA=200 THEN VS=4 :: VP=-4 :: CALL CLEAR :: GOSUB 500 ELSE 160 

151 GOSUB 10000 :: BAS=16.7 :: GOTO 142 

160 IF GARA=400 THEN VS=2 :: VP=-5 :: CALL CLEAR :: GOSUB 500 ELSE 135 

161 GOSUB 10000 :: BAS=38 :: GOTO 142 

170 GOTO 135 

500 REM SPRINT 

510 CALL HCHAR(14,1,136,32#6):: CALL PATCORSA s: CALL CHAR(112,"0000000000030F 1F 
1F1F1D1D3973E6C60000000000E0F 0F8FB9B988888080808") 

520 CALL CHAR(92,RPT$("03",16)&RPT$("C0",165)):: CALL SPRITE(£4,92,5,90,64,£5,92, 
5,90, 192) 

530 CALL SPRITE(£3,112,14,94,20,£2,112,2,102,20,£1,112,16,110,20):: FOR I=i TO 1 
000 :: NEXT I :: CALL SOUND(200,-6,0) 

535 RANDOMIZE :: CALL HCHAR(1,1,32,32*13) 

540 I=1 :: T=0 :: CALL MOTION(£4,0,VP, £5,0,VP,£3,0,VS) 

550 CALL KEY(I,K1,S):: IF K1=KC(I)THEN CALL MOTION(£3,0,VS-1.7#RND, £I1,0,0)ELSE CA 
LL MOTION(£I,0,VS):: K(I)=K1 

560 F=F+1 :: IF F=5 THEN F=1 

570 FIG=92+F*4 :: CALL PATTERN(£1,FI6,£2,FIG,£3,FIG):: CALL POSITION(£I,Y,X)}:: C 
ALL COINC(£3,96,240,4,TEST):: IF TEST=-1 OR X>236 THEN 590 

580 T=T+.5 1: I=3-I :: GOTO 550 

590 CALL MOTION(£1,0,0,£2,0,0,£3,0,0,£4,0,0,£5,0,0) 

600 CALL PATTERN(£1,F*4+92):: F=F+1 :: IF F=5 THEN F=1 

610 CALL PATTERN(£2,F#4+92):: F=F+1 :: IF F=5 THEN F=1 

520 CALL PATTERN(£3,92+F#4) 

630 RETURN 

10000 CALL POSITION(£1,A,TA(1),£2,A,TA(2),£3,A,TA(3)) 

10010 RANDOMIZE :: TV=MAX(TA(1),TA(2)):: TV=MAX(TV,TA(3)):: VEN=2#RND-1 3: T=INT 
(T)+RND-VEN :: TA(1)=T+(TV-TA(1))/10 

10020 TA(2)=T+(TV-TA(2))/10 :: TA(3)=T+(TV-TA(3))/10 s: IF TA(1)>TA(2)THEN ARC1) 
=2 1: AR(2)=1 ELSE AR(1)=1 :: AR(2)=2 

10030 IF TA(3)<TA(AR(1))THEN AR(3)=AR(2):: AR(2)=AR(1):: AR(1)=3 :: RETURN 

10040 IF TA(3)<TA(AR(2))THEN AR(3)=AR(2):: AR(2)=3 :: RETURN ELSE AR(3)=3 1: RET 
URN 

20000 SUB PATCORSA 

20010 CALL CHAR(96,"0101000F 1B332323070E1CF8F000000080800080CCF 8A080C0E070381818 
1818") 

20020 CALL CHAR(100, "01010007070707070703030F0F030303808000808080F 080808080808") 
20030 CALL CHAR(104, "010100070FOB0B0703030307070E0C0CB0B800080B0B80C0B0C0E060E0O8") 
20040 CALL CHAR(108, "010100071B131303070F1C3870E0C00080800088D0A080F8F818181818" 
) 

20050 SUBEND 


A T LIE TI CA 
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90 A$="SALTO IN LUNGO " 


95 Bs=" " 
100 ON WARNING NEXT :: RANDOMIZE :: CALL DELSPRITE(ALL) 

110 CALL CLEAR :: PRINT A$ :: INPUT "LIVELLO DELLA GARA: ":U :: PED=6.7-U#.3 :: 
IF U=0 THEN PED=5.6+RND*.8 

120 CALL CLEAR E -% 

130 CALL COLOR(14,12,9) 


140 CALL MAGNIFY(3) 

150 CALL CHAR(137, "FF000000000000FF"):: CALL CHAR(138, "FF0003060C1800FF"):: CALL 
HCHAR (14,1,137,20):: CALL HCHAR(14,17,138) 

160 CALL COLOR(13,15,1):: CALL CHAR(128, "FFFEFCF8F0E0C0800103070F 1F3F7FFFFFFFFFF 
FFFFFFFFF") 

170 CALL COLOR(12,9,15):: CALL CHAR(120, "FFFEFCF8F0E0C080") 

180 FOR I=1 TO 3 :: CALL HCHAR(12+I,23-I,130,10):: NEXT I 

190 CALL HCHAR(13,32,128):: CALL HCHAR(14,31,128):: CALL HCHAR(15,30,128):: CALL 
HCHAR (13,21,129):: CALL HCHAR(15,19,129) 

200 CALL HCHAR(14, 20,120) 

210 CALL CHAR(112, "00030300070E0F0E0FOF07000000000000000000F 800C00000E0E07030381 

818") 

220 F=1 :: CALL PATCORSA :: V=1 :: CALL SPRITE(£1,96,16,94,1,0,0):: K(1)=-1 

230 CALL KEY(1,K1,S):: IF KI<CK(1)THEN V=V+1 :: CALL MOTION(£1,0,V):: K(1)=K1 

240 F=F+1 :: IF F=5 THEN F=1 

250 CALL PATTERN(£1,92+4#*F):: CALL POSITION(£1,Y,X):: IF X>248 THEN CALL NS :: 6 
OTO 330 ELSE CALL JOYST(1,AV,SU):: IF SU<>4 THEN 230 

260 CALL POSITION(£1,Y,BAT):: CALL PATTERN(£1,104):: ALT=-(6+RND#3+ABS(F-2)) 

270 CALL MOTION(£I,ALT,V):: ALT=ALT+1.5 :: CALL JOYST(1,AV,SU):: IF AV=4 THEN CA 

LL PATTERN(£1,108):: DALT=1+ABS(ALT)/10 :: GOTO 290 

280 CALL POSITION(£1,Y,X):: IF Y>93 THEN 310 ELSE 270 

290 CALL MOTION(£1,ALT,V):: ALT=ALT+DALT :: CALL JOYST(1,AV,SU):: IF SU=-4 THEN 
CALL PATTERN(£1,112):: DALT=2 :: F=5 

300 CALL POSITION(£1,Y,X):: IF Y<K94 THEN 290 

310 CALL MOTION(£1,0,0):: CALL POSITION(£1,Y,X):: IF F=5 THEN X=X+16 

320 DISPLAY AT(5,14) USING "£.££": (X- 120+RNDI /50+PED :s IF BAT>120 THEN DISPLAY 
AT(7,14): "NULLO" ELSE DISPLAY AT(7,14):" 

330 CALL KEY(3,K1,S):: IF K1=7 THEN 100 ELSE IF S=0 THEN 330 ELSE 220 

340 SUB PATCORSA 

350 CALL CHAR(96, "0101000F1B332323070E1CF8F000000080800080CCF BA080C0E07038181818 
18”) 

360 CALL CHAR(100, "01010007070707070703030F0F030303808000808080F 080808080808") 
370 CALL CHAR(104, "010100070F0B0B0703030307070E0C0CB0B0008080B0C0BOCVEO60EOB8" ) 
380 CALL CHAR(108, "010100071B131303070F1C3870E0C00080800088D0A080F8F818181818") 
390 SUBEND 

400 SUB NS 

410 CALL DELSPRITE(£1):: DISPLAY AT(5,14):"#.++" 

420 SUBEND 


A _TLE TICA 


QRO SALTO IN ALTO 
SALTO IN ALTO 
9 
so car cs OLIMPIADI ?’84 
22 CALL SCREEN(12) EX. a 
24 PRINT :::" SALTO IN ALTO": :: 


100 ON VARNING NEXT :: INPUT "LIVELLO DI DIFFICOLTA”: ":BSA :: BAS=304-BSA#4 

110 CALL CLEAR :: CALL COLOR(14,12,9) 

120 CALL MAGNIFY(3) k -% 

130 OPTION BASE 1 :: DIM K(2) 

140 CALL CHAR(136, "FFC0A090888482818040201008040201FF01010101010101FF"):: CALL C 
HAR(140, "O101010101010101") 

150 CALL CHAR(112, "0000000000001F 3F70E0C"&RPT$("0",23)&"FBFB087") 

160 CALL CHAR(116,"181C0E070303030303"&RPT$("0",28)&"FBFB08B106") 

170 CALL CHAR(120,RPT$("0",32)&RPT$("01",16)):: CALL CHAR(124, "8040201008040201" 
&RPT$("0", 32)&"8040201008040201") 0 GOLiMLORDED FROM HHL.TISSIUC.IT 

180 CALL SCREEN(9):: FOR I=8 TO 24 :: CALL HCHAR(I,8+I,137):: NEXT I 

190 CALL HCHAR(11,20,136):: CALL HCHAR(11,21,139,5):: CALL HCHAR(18,27,139,5):: 
CALL HCHAR(18,26,140):: CALL HCHAR(18,32,138) 

200 FOR I=12 TO 17 :: CALL HCHARC(I,I+9,137):: NEXT I :: FOR Isili TO 17 :: CALL H 
CHAR(I,I+15,137):: NEXT I 

210 CALL HCHAR(19,27,139,6):: CALL HCHAR(8,1,139,15) 

220 CALL SPRITE(£1,120,5,120,176,£2,120,5,104,176,£3,120,5,89,176) 

230 CALL SPRITE(£9,120,5,88,144,£10,120,5,72,144,£11,120,5,56,144) 

240 RANDOMIZE :: CALL SPRITE(£7,124,2,80,160,£8,124,2,96,176) 

250 CALL PATCORSA 

260 ACCEPT AT(1,14)BEEP:MIS 

270 ALT=BAS-MIS*100 

280 CALL LOCATE (£7,ALT,160,£8,ALT+16,176) 

285 DVS=2 :: V=0 :: CALL DELSPRITE(£4,£5):: CALL SPRITE(£6,96,16,110,10) 

287 CALL KEY(1,K1,S):: IF S=0 THEN 287 

290 CALL KEY(1,K1,5):: IF KIC>K(1)THEN K(1)=K1 s: V=V+1 :: CALL MOTION(£6,0,V) 

300 F=F+1 :: IF F=5 THEN F=1 

310 CALL PATTERN(£6,92+4#F):: CALL POSITION(£6,Y,X):: IF X>162 THEN CALL SALTOC(A 

LT):: GOTO 400 

320 CALL JOYST(1,AV,SU):: IF SU<>4 THEN 290 ELSE CALL POSITION(£6,Y,X):: IF X<13 
6 THEN GOTO 400 

330 VS=-V+(X-166)/4+RND*3+ABS(F-2):: VA=4+(172-X)/4 :: CALL PATTERN(£6,104) 

340 CALL MOTION(£6,VS,VA/2):: CALL POSITION(£6,Y,X):: IF Y>110 THEN CALL SALTO(1 
):: GOTO 400 

350 CALL JOYST(1,AV,SU):: IF AV=4 THEN CALL PATTERN(£6,112):: DVS=ABS(VS-8)/3+1 
ELSE DVS=DVS+.8 :: VS=VS+DVS :: GOTO 340 

360 CALL MOTION(£6,VS,VA):: CALL POSITION(£6,Y,X):: IF Y>96 THEN 380 

370 CALL JOYST(1,AV,SU):: IF SU=-4 THEN CALL PATTERN(£6,116)ELSE VS=VS+DVS :: GO 

TO 360 

380 CALL SALTOCALT) 

390 VS=VS+3 :: CALL MOTION(£6,VS,VA/2):: CALL POSITION(£6,Y,X)s: IF Y>96 THEN 40 
O ELSE 390 

400 CALL SPRITE(£6,116,16,Y,X,0,0):: CALL KEY(3,K1,S):: IF K1=7 THEN 250 ELSE IF 
S=0 THEN 400 ELSE 280 

410 SUB SALTO(VAR):: CALL POSITION(£6,Y,X) 

415 YC=Y+10 :: VA=VAR+MIN(24, X-160)+6 

420 IF YC}VA THEN CALL LOCATE (£7, 100, 148, £8, 116, 164)3: SUBEXIT 

425 CALL SPRITE(£4,124,2,VAR, 160, £5,124,2,VAR+16,176):: CALL DELSPRITE(£7,£8) 
430 SUBEND 

440 SUB PATCORSA 

450 CALL CHAR(96, "0101000F1B332323070E1CF8F000000080800080CCF 8A080C0E07038181818 
18") 

4650 CALL CHAR(1090, "01010007070707070703030F0F030303808000808080F 080808080808") 
470 CALL CHAR(104, "010100070F0B0B0703030307070E0C0C808000808080C080C0E060E08") 
480 CALL CHAR(108, "010100071B131303070F1C3870E0C00080800088D0A080F8F818181818") 


490 SUBEND 


A TLE TICA 
400 OSTACOLI 
400 OSTACOLI 


OLIMPIADI ’84. 400 OSTACOLI 


EX. 8. 
35 CALL SCREEN(12) 
40 PRINT " ATLETICA 2 Oa SEE a 400 ostacoli": : :3: 
50 FOR I=1 TO 900 :: NEXT I 
100 OPTION BASE 1 :: DIM K(2),SALTO(3), TA(3) , AR(3),NOM$(3) 
110 ON WARNING NEXT :: NOM$(1)="BIANCO" :: NOM$(2)="NERO" :: NOM$(3)="COMPUTER" 
130 CALL DELSPRITE(ALL):: CALL CLEAR 
135 CALL COLOR(14,12,9):: CALL CHAR(136, "FFFF") 
140 CALL MAGNIFY (3) 19 = + 
170 VS=2 :: VP=-5 :: GOSUB 700 
175 BAS=43 
180 FOR I=1 TO 3 :: DISPLAY AT(I*2,5):USING 190:I,NOM$(AR(I)),TAC(AR(I))/10+BAS : 
s NEXT I 
190 IMAGE £I££££LE£EEFF£ ££.££ 
200 CALL KEY(3,KEY,STATO):: IF KEY<>0 THEN 170 ELSE 200 
700 CALL HCHAR(14,1,136,32#*6):: CALL CHARCI12, "0606003F5E9F 1FFCFC000000000000000 
00000F000FEFE000000" ) 
710 OST$="010305091121418F" :: CALL CHAR(1165,RPT$("0",15)&OST$&OST$&"00"):: CALL 
CHAR(120,RPT$("0",16)&"O010101010101010F "&OST$&"00") 
720 CALL PATCORSA :: CALL SPRITE(£4,116,5, 98,64,£5,120,5,114,48,£6,116,5,98,192, 
£7,120,5,114, 176) 
730 CALL SPRITE(£1,96,16,110,20,£2,96,2,102, 24,£3, 96,14, 94, 28):: CALL HCHAR(1,1, 
32,32#13):: FOR I=it TO 1000 :: NEXT Is: Ist :: T=0 
740 CALL SOUND(200,-65,0):: CALL MOTION(£4,0,VP,£5,0,VP,£6,0,VP,£7,0,VP, £3,0,VS/2 
) 
750 CALL COINC(£3,£4,10,TEST1):: CALL COINC(£3,£6, 10, TEST2):: IF TEST1=-1i OR TES 
T2=-1 THEN CALL PATTERN(£3,112):: SALTO(3)=1 ELSE SALTO(3)=0 
751 CALL MOTION(£3,0,1-SALTO(3)) 
760 CALL JOYST(I,W,SU):: IF SU=4 THEN CALL MOTION(£1,0,0):: CALL PATTERN(£1,112) 
s: SALTO(I)=1 :: GOTO 780 
765 CALL COINC(£I1,£6-I,12,TEST1):: CALL COINC(£I,£8-1,12,TEST2):: IF TESTI OR TE 
ST2 THEN SALTO(I)=1 3: CALL MOTION(£I1,0,VP/2):: GOTO 780 
770 SALTO(I)=0 :: CALL KEY(I,K1,S):: IF Ki=k(I)THEN CALL MOTION(£I1,0,0)ELSE CALL 
MOTION(£I,0,VS):: K(I)=K1 
780 F=F+1 :: IF F=5 THEN F=1 
790 FOR J=1 TO 3 :: IF SALTO(J)=0 THEN CALL PATTERN(£J,92+F#4) 
800 NEXT J 
805 I=3-I :: T=T+.5 :: CALL POSITION(£I,Y,A1,£3,Y,A2):: IF Ai>236 OR A2>236 THEN 
810 ELSE 750 
810 CALL MOTION(£1,0,0,£2,0,0,£3,0,0,£4,0,0,£5,0,0, £6,0,0,£7,0,0) 
830 CALL POSITION(£1,A,TA(1),£2,A,TA(2),£3,A,TA(3)):: TV=MAX(TA(1),TA(2)):: TV=M 
AXTV,TA(3)) 
840 T=T+RND :: FOR I=l TO 3 :: TACI)=T+(TV-TA(I))/10 :: NEXT I 
850 IF TA(1)>TA(2) THEN AR(1)=2 :: AR(2)=1 ELSE AR(1)=1 :: AR(2)=2 
860 IF TA(3)<TA(AR(1))THEN AR(3)=AR(2):: AR(2)=AR(1):: AR(1)=3 s: RETURN 
870 IF TA(3)<TA(AR(2))THEN AR(3)=AR(2):: AR(2)=3 :: RETURN ELSE AR(3)=3 :: RETUR 
N 
20000 SUB PATCORSA 
20010 CALL CHAR(96, "0101000F 1B332323070E1CF8F000000080800080CCF8A080C0E070381818 
1818") 
20020 CALL CHAR(100, "01010007070707070703030F0F030303808000808080F 080808080808") 
20030 CALL CHAR(104, "010100070F0B0B0703030307070E0C0C808000808080C080C0E0650E08" ) 
20040 CALL CHAR(108, "010100071B131303070F 1C3870E£0C00080800088D0A080F8F818181818" 
) 
20050 SUBEND 


DECATHLON s DECATHLON, DECATHLON, DECATHLON 
DECATHLON s DECATHLON, DECATHLON, DECATHLON 


730 PRIRT TABII); "DECATHLON "5461" EVENT®sE:TABC13)3B$:sTAB(W)3C$r1r0srsrrrzinio 


100 CALL CLEAR : 
110 RANDONIZE 

120 DEF ST=5(1)+5(2)+5(3)+5(4)45(5)+5(6)45(7)+518) 
130 READ A,A6 

140 IF A=0 THEN 220 

150 CALL CHARIA,AS) 

160 GOTO 130 

170 DATA 103,0,104,FF7F3F1F0F070301, 105, B0COEOFOFOFCFEFF, 106, FFFEFCF@FOEOCO8, 107 
,0103070FAF3F7FFF 

180 DATA 91,3C4201818181423C,92,0304080800080403, 93, C3241818181824C3, 94,C0201010 
101020C,38, BOCOA09088949201 

190 DATA 39,800080809080908, 40,8040201008040201,41,101010101010101,42,87493F30E8 
D41211,43,000000FF,0,0 

220 A6=CHR$ (91)&CHR$ (91)&CHR$ (91) 

230 B$=CHR$(92)&CHR$ (93) &CHR$ (94) 

240 PRINT TAB(6)3A5TAR(20)3A8: TAB(6)3B83 TAB(20);B$5 53 TABC10)s "DECATHLON": :: TAB 
515485 TAB(20) 348 

245 PRINT TABC4)3B83TAB(20):B8:s::333TAB(7)5 "FRON PENTERMARE* 

260 GOSUB 4790 

280 CALL CLEAR 

290 INPUT "NUMBER OF ATHLETES: 1-8 ":N 

300 IF (NCI)+(N)8)=-1 THEN 290 

310 PRINT ss "INPUT NAMES UP TO 7 LETTERS®:: 
320 FOR ASI TON 

325 PRINT 

330 INPUT "ATALETE L'ESTR&(A)L" *:NANES CA) 
340 IF LENINAMES(A))<B THEN 370 

350 PRINT "700 LONG! 7/0R LESS":: 

360 GOTO 330 

370 NEIT A 

390 PRINT 13: "ENTER 
390 INPUT NACH 

400. IF (MACH=1)+(NACH=2)=0 THEN 390 

410 CALL CLEAR 

420 PRINT "THIS GANE REQUIRES THAT YOU MAKE INPUTS TO THE KEYBOARD BY PRESSING S 
PACE BAR OR BY" 

430 PRINT "PRESSING THE FIRE BUTTON ON A JOYSTICK, YOU MUST MAKE: THIS INPUT AT 
A PRECISE TIME" 

440 PRINT "FOLLOWING AN AUDIBLE TONE, "::"G00D LUCK!*ssss0:: 
450 GOSUB 990 

550 FOR E=1 TO 10 i 


760 GOTO 700 


Basil 


FOR"::" | TI-99/45::% 2 TI-99/48°1: 


DECATHLON 


740 IF (E=4)+{E=8)}=0 THEN 770 
750 PRINT TAB(4); "ATTEMPT:"3TRY::TAB(4)3 "CURRENT HEIGHT:";ET:*FEET":: 


770 PRINT TAB(4) "ATTENPT:"5TRY::TAB(A)s "CURRENT BEST:"sT(A};*FEET":: 
780 ON E GOSUB 1,1690,2310,2920,1,1,2310,1490,2330 


790 CALL CLEAR 
800 NEXT A 
810 NEXT TRY 
820 IF (E=4)+(E=8)=0 THEN 890 

830 FOR 351 TON 

840 IF T(J)=ET THEN 860 

850 504)=1 

850 NENTI 

B70 NEXT ET 

880 RETURN 

890 PRINT "CURRENT STANDINGS":: "ATHLETE*, "POINTS":: 
900 FOR J=1 TO N-1 

910 FOR K=J+1 TO N 

920 IF PAIICPIKITHEN 1030 

930 NEXT K 

940 NEXT ] 
950 FOR J51 TON 

960 PRINT NAMESCIIP(I):: 
970 NET I 

72 IF ECIO THEN 990 
974 PRINT "UNTIL NEXT TINE SPORTS FANS!* 
976 END 
980 PRINT “PRESS BAR/FIRE TO CONTINUE" 
990 CALL KEY(0,K0,50) 
995 CALL KEY{,KI,S1) 
998 CALL KEY(2,K2,52) 
1000 IF 50451452 THEN 1010 ELSE 990 
1010 CALL CLEAR 
1020 RETURN 
1030 X=P(1) 
1040 PiJ}=P(K) 
1050 PIK)=I 
1060 Z6=NAMES(I) 


1180 PRINT TAB{S]: "DECATHLON "pA6:" EVENT'SE:TABCIT)1B$::TABIW);C&rsssisiizini: 


560 GOSUB 4920 1190 CALL HCHAR(10,1,103,256) 


1200 IF (E=1)+(E=6)=0 THEN 1220 
1210 CALL VCHAR(10,30,96,9) 
1220 CALL VEHAR(10,4,96,8) 
1230 CALL VCHAR(10,3,97,8) 
1240 IF EC6 THEN 1200 
1250 FOR J=6 TO 24 STEP 3 
1260 CALL VCHAR(10,3,99,N) 
1270 NENTI 

1290 FOR Ai TON 

1290 GOSUB 4110 

1300 IF EOI THEN 1330 
1310 INCCA)=1-ABSU-9)4,03 
1320 OTO 1340 


570 ON E GOSUB 1095, 1410,1990,2840,3150,3180,3410,3570, 3970, 4000 


300 GOSUB 290 

390 NEXT E 

620 FOR 3=96 T0% 

630 READ 18 

640 CALL CHAR(I, 26) 

550 NENTI 

660 RETURN 

670 FOR ET={E=4)#{-6,5)-{E=8)#15.5 TO 2.6#(E-1)STEP E/16 
690 FOR TRY=I TO 3 

690 FOR A=I TO N 

700 IF (E=4)+(E=B)=0 THEN 750 


710 IF TCAI=ET THEN 000 


720 IF SCAI=1 THEN 800 


OLIMPIADI ’84. 


1070 NAMES(J)=NAMES (K) 
1090 NAMES(K)=I$ 

1090 GOTO 900 

1095 C$="100 NETER RUN" 

1100 CALL SCREEN(S) 

1110 CALL COLORI9,2,11) 

1120 IF E=6 THEN 1145 

1130 1397 

1140 H=8 

1145 RESTORE 7000 

1150 GOSUB 620 

1160 IF ECV6 THEN 1180 

1170 CALL CHAR(97, "0COC394E095422") 


1350 INC{A)=1-ABS(I-78E-{E=6)-2#{E=10)+{NACH=1)#2+(E=5)#{MACH=1)}+,1/E 


1540 IF INC(A))=.9 THEN 1360 
1350 INCIA)=.8 

1560 NEXT A 

1370 GOSUB 4550 

1590 CALL CLEAR 


13590 PRINT "RESULTS OF *;C$:s"ATHLETE © TIME 


1400 GOTO 4300 


POINTS":: 


1410 CALL SCREEN(12) 
1420 CALL COLOR(9,2,10) 
1430 CALL COLORCIO, 10,12) 
1440 1=99 

1450 4510 

1460 C$="LONG JUNP" 

1465 RESTORE 7010 

1470 GTO 2040 

1480 CALL HCHAR(12,2,104) 
1490 CALL HCHAR(12,3,103,26) 
1500 CALL HCHAR(11,22,103,6) 
1510 CALL HCHAR(13,24,103,6) 
1520 CALL-HCHAR(11,21,104) 
1530 CALL HCHAR(13,23,104) 
1540 CALL HCHAR(11,29,105) 
1550 CALL HCHAR(12,29,105) 
1540 CALL HCHAR(13,30,105) 
1570 IF E=8 THEN 1610 

1580 CALL HCHAR(12,20,96) 
1590 CALL HCHAR(12,3,97) 
1600. RETURN 

1610 CALL HCHAR(12,22,96) 
1620 CALL VCHAR(11,24,99,3) 
1630 CALL VCHAR(9,21,38) 
1640 CALL VCHAR(9,21,39,2) 
1650 CALL HCHAR(9,22,40) 
1640 CALL HCHAR(10,23,40) 
1670 CALL HCHAR(12,4,98,2) 
1680 GOTO 1590 

1690 GOSUB 1480 

1700 GOSUB 4110 

1710 FOR 454 T0 19 

1720 CALL HCHAR(12,3,97) 
1730 CALL HCHAR(12,-1,103) 
1740 IF ECB THEN 1760 

1750 CALL HCHAR(12,3+2,99) 
1760 NEXT J 

1770 IF E=4 THEN 3000 

1790 IF E=9 THEN 3640 

1790 CALL HCHAR(12,21,98) 
1800 CALL HCHAR(12,19,103) 
1810 FOR J=22 T0 27 

1820 CALL HCHAR(12,3,98) 
1930 CALL HCHAR(12,3-1,103) 
1840 NEXT J 

1850 CALL HCHAR(12,27,99) 
1860 ET=INT((25-ABSUI-15+(NACH=1))#1,39+T(A)#,1)#100)#,01 
1870 IF ET)=13,88 THEN 1900 
1890 PRINTS="FOOT FAULT" 
1890 GOTO 1910 

1900 PRINTS=STRS(ET)&" FEET" 
1910 X=18 

1920 Y56 

1930 GOSUB 4730 

1940 IF (ET)T(AY)+(ET)=13,98)=-2 THEN 1950 ELSE 1940 
1950 T(A)=ET 

1940 PECA)=INT(T(A)#43,25) 
1970 GOSUB 4790 

1990. RETURN 

1990 CALL SCREEN(16) 

2000 CALL COLOR(9,2,11) 

2010 CALL COLOR(10,11,16) 
2020 12101 

2030 C$="SHOT PUT" 

2040 GOSUB 620 

2050 GOSUB 600 


2060 PRINT "RESULTS OF THE "5C$::"ATHLETE = FEET POINTS":: 


2070 GOTO 4300 

2000 CALL HCHAR(19,3,107) 
2090 CALL HCHAR(10,4,103,3) 
2100 CALL HCHAR(10,7,105) 
2110 CALL HCHAR(11,3,103,5) 
2120 CALL HCHAR(12,3,103,5) 
2130 CALL HCHAR(13,3,103,5) 
2140 CALL HCHAR(14,3,104) 
2150 CALL HCHAR(14,4,103,3) 
2160 CALL HCHAR(14,7,106) 
2170 CALL VCHAR(11,8,96,3) 
2180 FOR J=8 TO 10 

2190 CALL HCHAR(I, 18-3,107) 
2200 CALL HCHAR(J,19-9,103,9+12) 
2210 NENT 3 

2220 CALL HCHAR{11,9,103,22) 
2230 CALL HCHAR(12,9, 103,22) 
2240 CALL HCHAR(13,9,103,22) 
2250 FOR J=14 TO 16 

2260 CALL HCHAR(J,J-6, 104) 
2270 CALL HCHAR(7,3-5,103,36-0) 
2280 NENTI 

2290 CALL HCHAR(12,3,97) 
2300 RETURN 

2310 GOSUB 2080 

2320 IF E<)9 THEN 2340 

2330 GOSUB 3930 

2340 GOSUB 4110 

2350 FOR 334 707 

2360 CALL HCHAR(12,3,97) 
2370 CALL HCHAR(12,3-1, 103) 
2390 IF E<)9 THEN 2410 


2390 CALL HCHAR(11,3+1,96) 

2400 CALL HCHAR(11,3-2,103) 
2410 NEIT] 

2420 CALL HCHAR(12,7,98) 

2430 IF E(09 THEN 2450 

2440 CALL HCHAR(11,6,103,3) 
2450 FOR J=11 TO 15 STEP 2 
2460 IF E{)9 THEN 2490 

2470 CALL HCHAR(16-3/2,3-1,96,3) 
2480 GOTO 2500 

2490 CALL HCHAR(16-3/2,3,99) 
2500 CALL HCHAR{16-3/2,3-1,103,3) 
2510 NEIT 1 

2520 FOR J317 TO 21 STEP 2 
2530 IF EC)9 THEN 2560 

2540 CALL HCHAR(8,3-1,96,3) 
2550 6OTO 2570 

2560 CALL HCHAR(8,,3,99) 

2570 CALL HCHAR(8,3-1,103,3) 
2590 NENTI 

2590 FOR J=23 TO 25 STEP 2 
2600 IF E()9 THEN 2630 

2610 CALL HCHAR(3/2-3,3-1,96,3) 
2620 GOTO 2640 

2630 CALL HCHAR(3/2-3,3,99) 
2640 CALL RCHAR(3/2-3,4-1,103,3) 
2650 NEIT ] 

2660 IF E=9 THEN 3970 

2670 CALL HCHAR(12,28,100) 
2680 CALL HCHAR(12,29,103) 
2690 CALL HCHAR(12,29,101) 
2700 IF E=7 THEN 3480 


2710 ET=INT((66-ABS(1-22+(NACH=1))#3,9004T(A}#,05)#100)4.01 
2720 IF ET)=42 THEN 2750 
2730 PRINT$="FO0T FAULT” 


2740 GOTO 2760 


2750 PRINT$=STR$(ET)&" FEET" 
2760 IF (ETCTIA))+{ET42)(=-1 THEN 2780 


2770 T(A)=ET 


2780 PECA)=INTIT(A)#17.28) 


2790 1=18 

2900 Y=6 

2010 GOSUB 4730 
2820 GOSUB 4790 
2830. RETURN 


2940 CALL SCREEN{11) 
2950 CALL COLOR(9,2,4) 


2960 X=101 

2870 C$="HIGH JUMP" 
2090 GOSUB 620 
2890 GOSUB 670 


2900 PRINT "RESULTS OF THE *5C$:s"ATHLETE = FEET POINTS": 


2910 GOTO 4300 
2920 FOR J=8 TO 16 


2930 CALL HCHAR(I,3,103,22) 


2940 NENT J 


2950 CALL HCHAR(11,19,99) 
2960 CALL HCHAR(12,20,99) 
2970 CALL HCHAR(13,21,96) 
2990 CALL HCHAR(12,3,97) 


2990 GOTO 1700 


3000 CALL HCHAR(12,20,100) 
3010 CALL HCHAR(12,19,103) 


3020 GOSUB 5000 


3030 IF CIVASET=3-(NACH=1))+(ICS9-48ET-(NACH=1)}=-2 THEN 3110 
3040 CALL HCHAR(11,19,96) 


3050 CALL HCHAR{12,20,103) 
3060 CALL VCHARC11,20,96,3) 
3070 UCAI=UCA)+1 
3080 CALL HCHAR(13,22,101) 
3090 GOSUB 4790 
3100 RETURN 
3110 T(ANSET 
3120 PECA)=INT(2808T(A)-900-U(A)#(30-48T(A))) 
3130 CALL HCHAR(12,20,99) 
3140 GOTO 3080 
3150 C$="400 METER RUN" 
3160 W=9 
3170 GOTO 1100 
3180 C$="110 METER HURDLES* 
3190 X=99 
3200 W°6 
3210 GOTO 1100 
3220 CALL GCHAR(949,L(3)-1,WHAT2) 
3230 CALL GCHAR(943,L(3),WMATI) 
3240 CALL HCHAR(9+3,L(3),-974(WHATI<)99)-99%(WHAT1=98)) 
3250 CALL HCHAR(9+3,L(J)-1,-1038(WHAT2C)99)-996(WHAT2=99)) 
3260 GOTO 4440 
3410 CALL SCREEN(16) 
3420 CALL COLOR(9,2,4) 
3430 CALL COLOR(10,4,16) 
3440 15101 
3450 Well 
3460 C$="DISCUS 
3465 RESTORE 7040 
3470 GOTO 2040 
3480 ET=INT((200-ABSCI-48+(NACH=1))#11,1254T(A}#,1)#100),01 
3490 IF ET)=90 THEN 3520 
3500 PRINT$="FOOT FAULT® 
3510 60T0 3530 
3520 PRINT$=STRS(ET)&" FEET* 
3530 IF (ETCT(A))+(ET(80)<=-1 THEN 3550 
3540 TIAI=ET 
3550 PECA)=INT(5.40687(A)) 
3550 GOTO 2790 
3570 CALL SCREEN(12) 
3590 CALL COLOR(9,2,16) 
3590 CALL COLOR(10, 16,12) 
3600 1=102 
3610 N10 
3620 C8="POLE VAULT* 
3630 GOTO 2080 
3640 CALL HCHAR(12,19,103,3) 
3650 CALL HCHAR(12,22,100) 
3660 CALL HCHAR(11,22,101) 
3670 CALL HCHAR(10,22,41) 
3680 CALL HCHAR(9,22,42) 
3690 GOSUB 5000 
3700 CALL HCHAR(9,22,40) 
3710 CALL HCHAR(12,25, 102) 


3720 IF (1)18+23ET-(MACH=1)#2)+{I(90-24ET-(NACH=1)#2)=-2 THEN 3840 


3730 CALL HCHAR(9, 21,39) 
3740 CALL HCHAR(9,22,32) 
3750 CALL HCHAR(10,23,32) 
3760 CALL HCHAR(14,21,43,4) 
3770 ULA)SUCAIH1 

3780 CALL HCHAR(10,22,32) 
3790 CALL HCHAR(11,22,103) 
3800 CALL HCHAR(12,22,96) 
3810 CALL HCHAR(12,19,98,3) 
3820 GOSUB 4790 

3830. RETURN 

3840 T(AN=ET 


3950 PECA)=INT{1408T(A)-1250-U(A)#(35-247(4))) 
3860 GOTO 3780 

3870 CALL SCREEN(16) 

3880 C$="JAVELIN" 

3890 CALL COLOR(9,2,6) 

3900 1299 

3910 dE01 

3920 GOTO 2040 

3930 CALL HCHAR(7,1,103,6832) 
3940 CALL HCHAR(12,3,97) 
3950 CALL HCHAR(11,2,96,3) 
3960 RETURN 

3970 CALL HCHAR{11,29,99) 
3980 CALL HCHAR(12,29,99) 


4480 CALL HCHAR(943,L(3),97) 
4490 CALL HCHAR(9+,30,103) 

4500 ETSETHL/N 

4510 IF ET)E/2,5-.1 THEN 4600 ELSE 4700 
4520 SUIFI 

4530 IF E=6 THEN 4570 

4540 T(J)=INT(M#39, 1/N14,01 
4550 PE(J)=INT(3954-T(J)4266.7) 
4560 SOTO 4690 

4570 T(I)=INT(N849,8/N)4,01 

4590 PE(I)=INT(3854-T(3)#203,99) 
4590 GOTO 4690 


3990 ET=INT((271-ABS(I-61+(MACH=1)#2)+15,075+T(A)#,1)#100)#.01 


4000 IF ET)=150.4 THEN 4030 
4010 PRINT$="FOOT FAULT* 
4020 GOTO 4040 

4030 PRINT$=STR$ (ET)&" FEET® 
4040 IF (ETCT(A)}+(ET(150,4)(=-1 THEN 4060 
4050 T(AI=ET 

4060 PECA)=INT(3.994T(A)) 
4070 GOTO 2790 

4080 C$="1500 METER RUN" 
4090 37 

4100 GOTO 1100 


4600 CALL VCHAR(10,30,96,9) 
4610 GOTO 4700 

4620 S(9)=I 

4630 IF E=10 THEN 4670 

4640 T(I)=INTUN/N-9)#100)4,01 
4650 PE(J)=INT(3980-T(9) 460,73) 
4660 GOTO 4690 

4670 T(J)=INT(N#200/N)4,01 
4680 PE(J)=INT(3427-T(3)+10,39) 
4690 IF ST=N THEN 4720 


4110 PRINTS=NANES (A)&", INPUT AFTER "&STRS(E)&" SECONDS 


4120 1324 

4130 152 

4140 GOSUB 4730 

4150 GOSUB 4790 

4170 CALL SOUND(100, 440,1) 
4190 FOR I=1 TO 100 

4190 CALL KEY{0,K0,50) 
4192 CALL KEY(1,K1,S1) 
4194 CALL KEY(2,K2,52) 
4200 IF 50451452 THEN 4215 
4210 NEXT I 

215 CALL S0UND(100,880,1) 
4220 CALL HCHAR(24,1,32,32) 
4230 RETURN 

4300 FOR A=1 TO N 


4310 PRINT NAMESCA)STABILI):TIA)STAB(ZONPECA):: 


4320 PIA)=P(A)FPE(A) 


4040 FOR J=1 TON 


4700 NEIT J 


4710 GOTO 4370 


4720 RETURN 
4730 FOR K=1 TO LENIPRINTS) 
4740 I8=SEGS (PRINTS,K,1) 
4750 CALL HCHARCE,Y,ASC(78)) 
4760 Y=YH1 

4770 NET K 

4790 RETURN 

4790 FOR DELAY=1 TO 1000 
4900 NEIT DELAY 

4810 RETURN 

4820 M°0 

4930 ET=0 


6)=-1 THEN 4520 


ITA 53378 
uh an 980 querd = = Sie 
4750 ET=1 4860 T(J)=0 - È = 

;J)= E€ss5tS5 

4350 CALL SOUND(200, -5, 1) . LiJ)=3 - 32723 

4345 CALL VCHAR(10,4,103,8) 0 50J)=0 ere iizti= 

3 x 4890 U(3)=0 n55h-H%1 

4370 FOR J=1 TO N SEL S44 

4390 Mete 4909 NEIT Ss2s58353 
4910. RETURN = 


4390 IF S(J)=1 THEN 4700 
4400 L(JI=L{3)#INC(I) 


5000 FOR DELAY=1 TO 200 


3010 NEXT DELAY 


3020 RETURN 


7000 DATA B08080808080808, OCOCI94E08542202, 


0000000000009808, 06760C1F54220909 


7010 DATA 8040201008040201, 0COCI94E08542202, 0006063877701C03, D0000Z0TICIC22E1 


7020 DATA S08090808080808, OCDIEOBODG1C2221, 


000000000303 


7030 DATA 908080808080808, OCOC394E09547202, 


F3C3AS1942201,20130F1C7A92224 


TO4O DATA 80S0S0GIGIG0R08, ICOCI9TE48CC9222, 


8, 0000000000000030 


7050 DATA 9040201008040201, 0COCZO4EFF542202 


9040201, 101010101010101 
T0SS DATA 20130F1C7A92224 


7050 DATA 00000000000000FF,2C2C180C0A542202, 191A1C7090204434,304020100804020! 


191A1C7090204484, 0000001818, 1818,0000 
BOCOR09098848281,8040201008040201,834 
191A1C7090294484, 00000030, 00000908030 


+ 00000000FF, 908080808080808, 905030100 


QUESTO PROGRAMMA PERMETTE DI COMPRENDERE 
NELLA COSTRUZIONE DI UN GIOCO MOLTE DEL= 
LE ISTRUZIONI CHE VANNO A GESTIRE LO STESSO 
GIOCO. UN BUON ALLENAMENTO PER IMPARARE 
IL PROGRAMMA E” IN EXTENDED BASIC E CI E” STATO INVIATO DAL NOSTRO CARO OSELLA 


1 REM FRANCOMPUTER CLUB VICENZA 

2 REM 

3 REM 

4 REM = PROGRAMMA — DIDATTICO 

5 REM ELABORATO E SCRITTO EX. a. 

6 REM 

7 REM LUCA OSELLA 

8 REM 

9 REM 

DOT ARIA iti PER LE SPIEGAZIONI LISTA RE TUTTO IL PROGRAM 
MA. CALL COINC: 521-528 CALL JOYST: 471 

20 ! CALL MOTION: 651-653 CALL POSITION: 641 O 441 0 53 
1 LARA LALA LALA Li 


30 CALL CLEAR :: CALL SCREEN(3):: A$="FFFFFFFFFFFFFFFF" :: CALL CHAR(96,A$,104,A 
$,112,A$) 

40 B$="0103070F1F3F7FFF" :: CALL CHAR(120,B$,128,B$) 

50 CALL CHAR(136, "OF 1F3F7FFFFFFFFFFFFFFFFF7F3F 1FOFFOFSFCFEFFFFFFFFFFFFFFFFFEFCF8 

FO") 

60 CALL CHAR(113, "FFFFFFFFFFFFFFFF00") 

70 CALL COLOR(9,5,5,10,9,9,11,16,3,12,5,3,13,16,3) 

80 CALL HCHAR(17,2,112,29):: CALL HCHAR(16,2,112,29):: CALL HCHAR(15,2,112,29):: 
CALL HCHAR(14,3,128,1) 

90 CALL HCHAR(14,4,112,27):: CALL HCHAR(13,4,128,1):: CALL HCHAR(13,5,112,26):: 
CALL HCHAR(12,5,128,1) 

100 CALL HCHAR(12,6,112,4):: CALL HCHAR(11,10,120,1):: CALL HCHAR(10,11,120,1)s: 
CALL HCHAR(9,12,120,1):: CALL HCHAR(8,13,120,1) 

110 CALL HCHAR(12,10,96,8):: CALL HCHAR(11,11,96,7):: CALL HCHAR(10,12,96,6):: C 
ALL HCHAR(9,13,96,5):: CALL HCHAR(8,14,96,4) 

120 CALL HCHAR(7,14,128,1):: CALL HCHAR(7,15,112,16):: CALL HCHAR(8,18,112,13):: 
CALL HCHAR(9,18,112,13):: CALL HCHARC10,18,112,13) 

130 CALL HCHAR(11,18,112,13):: CALL HCHAR(12,18,112,13):: CALL VCHAR(9,23,104,4) 
:: CALL HCHAR(10,22,104,3) 

140 CALL HCHAR(6,16,113,16):: CALL HCHAR(S,16,112,16):: CALL HCHAR(4,16,112,16): 
: CALL HCHAR(3,16,112,16) 

150 CALL HCHAR(18,6,136,1):: CALL HCHAR(18,7,138,1):: CALL HCHAR(19,6,137,1)t: C 
ALL HCHAR(19,7,139,1) 

160 CALL HCHAR(18,26,136,1):: CALL HCHAR(18,27,138,1):: CALL HCHAR(19,26,137,1): 
: CALL HCHAR(19,27,139,1) 


170 DISPLAY AT(22,10):" AMBULANTE -----___----_--- " 
180 ! 

190 CALL MAGNIFY(3) 

pioli izzzzzizi, ici cicici ti SI SOVRAPPONGONO 4 SPR ITES 


LEA RARE ZA LELE LEA ii 
210! 
220 ! 
230 FOR N=1 TO 10 
240 READ S(N) 
250 CALL SOUNDI{INT(RND*20)+1,S(N),INT(RND*2)+1) 


260 DATA 110,117,123,131,139,139, 147,156, 165,175 

270 NEXT N 

280 FOR W=1 TO 300 :: NEXT W :: CALL CLEAR :: CALL SCREEN(9):: FOR COL=1 TO 12: 
: CALL COLOR(COL,16,9):: NEXT COL 

290 GOTO 1410 

300 CALL CLEAR 


FLO t--------------- AMBULANCE 1984 BY LUCA OSEL 
LA TI 99/4A SOFTWARE EXTENDED BASIC 
BO 

330 DISPLAY AT(2,10)1"------------ " 3: DISPLAY AT(4,11): "SITUAZIONE" :: DISPLAY 
AT(6,10)1"------------ ; 


340 DISPLAY AT(10,5): "SIETE ALLA GUIDA DI UNA AUTOAMBULANZA E DOVETE CONDURLA AT 
TRAVERSO IL TRAFFICO INTRICATO DELLA METROPOLI." 

350 DISPLAY AT(14,5): "DOVETE POI GUIDARE I BARELLIERI SENZA FARVI TRAVOLGERE DAG 
LI UOMINI CHE CADONO. " 

360 DISPLAY AT(20,7): "PREMERE UN TASTO" 

370 CALL HCHAR(1,1,112,32):: CALL HCHAR(24,1,112,32):: CALL VCHAR(1,1,112,24):: 
CALL HCHAR(1,32,12,24) 

380 CALL HCHAR(2,1,112,52):: CALL MAGNIFY(35):: CALL SPRITE(£1,128,2,1,1,0,-10) 
Rir/0MBE zizi izzkci i iii iii ii QUI SI DEFINISCONO GLI SPRITES CHE SI VEDO 
NO SULLO SCHERMO FETTE TIA 

400 CALL HCHAR(23,1,112,352):: CALL SPRITE(£2,128,2,180,1,0,-10) 

410 CALL KEY(0,K,H)ts IF H=0 THEN 410 

420 CALL CLEAR :: CALL DELSFRITE(ALL):: CALL HCHAR(2,1,112,32):: CALL HCHAR(12,1 
1108, 32) 1: CALL HCHAR(23,1,112,52) 

30 CALL SPRITE(£1,1352,2,10,252, 0,720, £2, 140, 2,50,252,0,-15,£3,96,2,70,252,0,-10 
) 

440 CALL SPRITE(£4,132,2,30,252,0,-19) 

4509 CALL SPRITE(£6,100,2,100,1,0,10,£7,100,2,120,1,0,5,£8,100,2,140,1,0,20) 
460 ! 

470 CALL SPRITE(£11,100,2,150,1,0,10,£12,132,2,62,252,0,-10) 

480 CALL SFRITE (£16,104,2,1,1,09,10,£17,104,2,1,50,0,10,£18,104,2,170,1,0,10) 

490 CALL SFRITE(£20,104,2,170,50,0,10,£21,104,2,170,100,0, 190) 

500 CALL SFRITE(£22,104,2,170,150,0,10,£23,104,2,170,200,0,10) 


SLÒ |! KEKKEKEKKEKKKKKKKEKLKKK FINE DEGLI SPRITES CITTTI TTT CIC C1 
S20 T=100 :: SC=0 

STO! HIER ETTAKEEEAEEEEIAA NELLA RIGA N.450 VIENE POSIZIONATA LA AUT 
OAM= BULANZA({£24)CON VELOC. INIZIALE=0 


540! EKEKKEKKKKKKKKKKKKKKKKK 

550 CALL SPRITE(£24,128,2,130, 240) 

5650 DISPLAY AT(24,1):"-- USARE IL JOYSTICK 1. --" 
370 CALL COLOR(£24,16) 


590! KKEKKEEKEKKEKKKEEKEKrKEKKKoK NELLA RIGA N. 480 VIE= NE DEFINITA LA CAL 
L JOYST CHE E°‘ USATA PER FAR MUOEERE L’AUTOAM = 

590! BULANZA.IL JOYSTICK USATO E" IL NUMERO i LEARLALELLE LALA ALL 
EXE 

600 CALL JOYST(1,X,Y) 

GIO ! KEKEEKLEKEKKEKKKEEELEKKoKK L’AUTOAMBULANZA SI SMU OVE CON V.OR.=1 E 
V.VE RT.=1 FEKKKKKKKKKKKKLAKKEIEEE 


620 CALL MOTION(£24,-Y,X) 

6530 CALL SOUND(1,-1,5) 

640 T=T-1 1: DISPLAY AT(1,1):"TEMPO:"sTi"sSCONTRI:"3SC 1: IF T=0 THEN 950 
650 CALL COINCC(ALL,C) 


OSO! FIELEEET EEE EEE EEA NELLA RIGA N S20 SI VE DE FER LA FRIMA vO 
LTA LA CALL COINC.ESSA SER VE A STABILIRE QUANDO 
670 ! C'E" LA SOVRAPFOSIZION E DI DIVERSI SPRITES. IL SUO FORMATO E": 
CALL COINC(N.SPRIT.,N.SFPRIT » a TOLLERANZA, VARIABILE 
680 ! NUMERICA). IL N,SPRIT. E° IL NUMERO DEI DUE SPRITES CHE VOLETE 
ANA LIZZARE,LA TOLLERANZA E° UN NUMERO INTERO 
690 ! E LA VARIABILE E° UNA LETTERA QUALSIASI. SUCC ESSIVAMENTE SI FON 
E IL QUESITO AL COMP. SE ESSA E" VERA(=-1) O SE 
700! ESSA E° FALSA (=0) (RIGA 3:30) .,5E E" VERA SI RIM ANDA AD UN ALTRO N 


UMER O DI LINEA DOVE ACCADE QUALCOSA (SUONO, PUNTEGG 


710 ! GIO DIMINUITO, ECC.)ALT RIMENTI SI RITORNA ALL A CALL JOYST. 


720 ! OLTRE AL FORMATO SOPRA DESCRITTO SE NE PUO US ARE ANCHE UN ALTRO 
CAL L COINC{ALL,C).DOVE AL L(=TUTTI)VUOL DIRE CHE 

730 ! IL COMPUTER GUARDA SE TUTTI GLI SPR. COINCID ONO,E C E° LA VERI 
ABIL E NUMERICA. CRETE TTT TC TCX CTTTCTCTi 

740 IF C=-1 THEN 760 ELSE GOTO 600 

Vir MAME TTT TT TT TTT TETETT01 L” AUTOAMBULANZA VIENE POSIZIONATA (X,Y) 


[EX 2333333251 

750 CALL POSITION(£24,X,Y):: CALL SOUND(900,-1,1):: CALL DELSPRITE(£24) 

779 CALL CHAR(120, "000000181800000050200181800000004000000000004B000000040000400 
100") 

Vi= (00 2777777777722 7%2%%221) SCOPPIO DELLA AUTODAMB. III HEI III II IEEE 
KAKK 

790 CALL SPRITE(£5, 120,16, X,Y,-3,-3):: CALL SPRITE(£9, 120, 16, X,Y,3,3) 

800 CALL SPRITE(£10,120,16,X,Y,-3,3):: CALL SPRITE(£13,120,16,X,Y,3,-3):: CALL S 
PRITE(£14,120,16,X,Y,1,1) 

810 CALL SPRITE(£15,120,16,X,Y,-1,-1):: CALL SPRITE(£19,120,16,X,Y,4,0) 

820 FOR W=1 TO 300 :: NEXT W :: CALL DELSPRITE (£5,£9,£10,£13,£14,£15,£19):: SC=S 
C+1i 

8350 CALL SPRITE(£24,128,16,150,130):: GOTO 400 


[-Y.T0MM 2777772772222 %2X21 SI RITORNA ALLA CALL J OYST INIZIALE SE I 
L TE MPO(T) NON E° SCADUTO PITTI T33X3tt53 31551) 

850 CALL CLEAR 

[-/-10 MM a cia zazizzizaLszizkzk1 INIZIA IL SECONDO QUAD RO 


ITTTTZZA TTT T TTT LTA Io 
870 CALL DELSPRITE (ALL) 
880 SCORE=10000-(100#*SC) 
890 CALL SPRITE(£1,128,165,118,256,0,-10):: FOR W=i TO 600 :: NEXT W :: CALL MOTI 
ON(£1,0,0):: CALL POSITION(£1,X,Y) 


FOO ASIATICI III IE NELLA CALL POSITION(EN X,Y)VIENE REGISTRA 
TAL A POSIZIONE DI UN DATO SPRITES(£N)FER USUFRUI 
910 ! RNE FOI FIU' TARDI KKKKEKEKEKEKKKKKKKKKKKKK%K 


920 CALL SPRITE(£2,136,2,X,Y,95,0):: FOR W=1 TO 400 :: NEXT W_:: CALL MOTION(£2,0 
s 10) :: FOR W=i TO 500 :: NEXT W 


PIO III ARIETE CON LA CALL MOTION SI IMPRIME ALLO SPRIT 
ES D EDIDATO(QUI=£2)UNA DAT A VELOCITA* SECONDO LO 

940! ASSE X E POI SECONDO L ASSE Y(FORMATO:CALL MO ION(£NUMERO SPRITE 
« VEL OCITA* SECONDO L’ASSE X, VELOCITA" SECONDO LO 

950 ! ASSE Y)) LELE EKLELEKEKEKKKKKKKKKKKK 


960 CALL CLEAR :: CALL DELSPRITE(£1,£2) 

970 CALL MAGNIFY(3):: A$="000000000C0F0C0508040200000000000000204080000090A86610 
0A04000000" 

990 B$="00000000020202023335F01000000000000000030121E1818F8F800F 000000000" 

990 C$="000000000101011109050301000101000040408C1020408890A0C08080808000" 

LODO! III III A$,B8$,C$ DEFINISCONO DEGLI UOMINI CHE 

CA= DONO. DTTTTZ ZETA ZELL EE Li 

1010 CALL CLEAR :: CALL SCREEN(16):: CALL HCHAR(24,1,112,32) 

1020 CALL SPRITE(£1,1356,16,170,118) 

1050 CALL CHAR(128,A$):: CALL CHAR(1352,B$):: CALL CHAR(140,C$):: CALL CHAR(96,A$ 
):: CALL CHAR(100,B$) 

1040 CALL CHAR(104,C$):: CALL CHAR(108,A$):: CALL CHAR(112,B$):: CALL CHAR(116,C 
$) 

1050 GOSUB 1380 

1060 CALL SPRITE(£2,140,C0L,1,1,10,0):: GOSUB 1380 

1070 CALL SPRITE(£3,104,C0L,1,20,4,0):: GOSUB 1380 

1080 CALL SPRITE(£4,116,C0L,1,40,15,0):: GOSUB 1380 

1090 CALL SPRITE(£5, 128,C0L,1,650,10,0):: GOSUB 1380 

1100 CALL SPRITE(£6,112,COL,1,80,10,0):: GOSUB 1380 

1110 CALL SPRITE(£7,96,COL,1,100,10,0):: GOSUB 1380 


1120 CALL SPRITE(£8,132,C0L,1,120,5,0):: GOSUB 1380 

1130 CALL SPRITE(£9,108,C0L,1,140,5,0):: GOSUB 1380 

1140 CALL SPRITE(£10,128,COL,1,180,10,0):: GOSUB 1380 
1150 TEMPO=100 

1160 CALL SPRITE(£11,128,C0L,1,230,4,0) 

1170 CALL JOYST(1,X,Y) 

1180 TEMPO=TEMPO-1 :: IF TEMPO=0 THEN 1310 

1190 DISPLAY AT(1,1): "TEMPO: "5 TEMPO; " PUNTEGGIO: "5 SCORE 
1200 CALL MOTION(£1,0,3*X) 

1210 CALL SOUND(1,-1,1) 


1220 HIHI ATTI QUI VIENE DI NUOVO USA TA LA CALL COINC, 
CON L LA CONDIZIONE SE AVVIE NE LA COINCIDENZA(=C0I 

1230 ! NC) FRA DUE SPRITES(C= -1) CETTTTTTI ILE 1011 
2721 


1240 CALL COINC‘ALL,C):: IF C=-1 THEN 1250 ELSE GOTO 1170 

1250 SCORE=SCORE-20 

L26001 IEEE III COINCIDENZA VERIFICATA KAKKLKAKKKKKAKKLKKAKLKAK 
KKKKK 

1270 CALL POSITION(£1,X,Y):: CALL DELSPRITE(£1) 

1280 CALL SPRITE(£20,120,2,X,Y,-3,-3,£21,120,2,X,Y,3,3,£22,120,2,X,Y,-3,3,£23,12 
0,2,X,Y,3,-3) 

1290 FOR W=1 TO 50 :: NEXT W 

1300 CALL DELSPRITE(£20,£21,£22,£23):: CALL SPRITE(£1,136,165,170,118):: GOTO 117 
0 

1310 CALL DELSPRITE(ALL):: CALL CLEAR 

1320 DISPLAY AT(10,1): "PUNTEGGIO FINALE: "5 SCORE 

1330 DISPLAY AT(20,1):"VUOI RIGIOCARE ? (S/N)" 

1340 CALL KEY(0,K,H):: IF H=0 THEN 1340 

1350 IF K=83 THEN 30 :: IF K=78 THEN 1360 :: IF K<>83 OR K<>78 THEN 1340 

1360 CALL CLEAR 

1370 END 

1380 RANDOMIZE 

1390 COL=INT(RND+*15)+1 

1400 RETURN 

1410 CALL CHAR(128, "000000070F13276FFFFFFF1C08000000000030FFFFDFDF07DFDFFF0E0400 
0000") ! AMBULANZA 

1420 CALL CHAR(132, "00000000000000040CFFFEFF 381000000000000000000000003E 3EFF 1C08 
0000")! JEEP 

1430 CALL CHAR(136, "000030331332333B3F57979750B00000000003E36123676BF 3F5F9F9050F 
0000")! BARELLIERI 

1440 CALL CHAR(140, "0000000C0E031D313F2F562B100000000000000000008080F CEBS4281000 
0000")! MOTOCICLISTA 

1450 CALL CHAR(96, "00000000000000081F 387FFF1D0800000000000000C0C040C1C3FFFF8E040 
000")! AUTO SPORTIVA E GUID. 

1460 CALL CHAR(100, "OF1F1F19393FFFFF7F 1F 1FOCODOF0703F0F8F8989CFCFFFFFCF8F83030F0 
EOCO")! MOSTRO 

1470 CALL CHAR(104, "00000000000000007EFFFF81FF81FFFF0000000000000000000000000000 
0000")! GUARD-REAL 

1480 CALL CHAR(108, "0000FF0000FF0000", 112, "OO0OFFFFFFFF0000"):: GOTO 300 

1490 END 


1500 dee **X*K**SPIEGAZIONI**** 
* —_ __—__ _ _ ____ _ _ ___ _— _—  _ ________—_—_—- 

1510 ! Se il tempo di giocoi i vi sembra troppo luni i go o corto non av 

etei i che da modificare lai i linea n. 440 nella: 

1520 ! prima incognita("T=1! 100) i i Piu" che altro in 
qui i esto programma ho cel i rcato di esemplifica! 

15350 ! re al messimo le isti i ruzioni,cosicche* sil i possa imparare an 

che: i leggendo il listato : i (p.e. l’uso della cai 

1540 ! 11 coincicall positi! i onscall motioniecc.)! i 

1550 ! BUON DIVERTIMENTO 


REM FRANCOMPUTER CLUB VICENZA 
REM 

REM ================s=ssscnnna 
REM 
REM 
REM 
REM 
REM 
REM 
10 CALL SCREEN(16) 


PROGRAMMA UTILITY 


BY LUCA OSELLA 


DLONSCUIUBALGIN- 


20 CALL CHAR(128, "FFFFFFFFFFFFFFFF") 
30 CALL CHAR(129, "0103070F1F3F7FFF") 
40 CALL CHAR(136, "000000FFFF000000") 


50 CALL COLOR(14,3,16) 

60 CALL CLEAR 

70 REM EEXKEKKKEKAHIIE 

80 CALL HCHAR(20,23, 129,1) 
90 CALL HCHAR(21,22,129,1) 
100 CALL VCHAR(3,3,128,6) 
110 CALL VCHAR(3,25, 128,2) 
120 CALL VCHAR(3,27,128,2) 
1350 CALL VCHAR(S,26,128,4) 
140 CALL HCHAR(8,3,128,5) 
150 CALL VCHAR(1,7,128,8) 
160 CALL HCHAR(10,1,136,32) 
170 CALL HCHAR(18,1,136,32) 
180 CALL HCHAR(1,7,128,253) 
190 CALL HCHAR(3,9, 128,3) 
200 CALL VCHAR(3,10,128,6) 
210 CALL VCHAR(3,13,128,6) 
220 CALL VCHAR(3,15, 128,6) 
230 CALL HCHAR(8,15,128,3) 
240 CALL VCHAR(3,19,128,6) 
250 CALL VCHAR(3,22,129,6) | 
260 CALL HCHAR(3,20,129,3) » 
270 CALL HCHAR(20,3,128,3) 
280 CALL VCHAR(20,4,128,5) 
290 CALL VCHAR(20,7,128,5) 
300 CALL HCHAR(20,11,128,3) 
310 CALL HCHAR(22,11,128,3) 
320 CALL HCHAR(24,11,128,3) 
330 CALL VCHAR(20,11,128,3) 
340 CALL VCHAR(20,135,128,5) 
350 CALL HCHAR (20,15, 128,3) 
360 CALL HCHAR(22, 15, 128,3) 
370 CALL HCHAR (24,15, 128,3) 
380 CALL VCHAR(20,15, 128,35) 
390 CALL VCHAR(20,17,128,5) 
400 CALL HCHAR (22,19, 128,2) 
410 CALL VCHAR(22, 22, 128, 2) 
420 CALL HCHAR(23, 22, 128,4) 
4350 CALL HCHAR(21,23, 128,1) 
440 CALL VCHAR(20, 24, 128,5) 
450 CALL VCHAR(20,27,128,5) 
460 CALL VCHAR(20,29,128,5) 
470 CALL HCHAR (20, 27, 128,3) 
480 CALL HCHAR(22,27,128,3) 
490 DATA 
3370,415,415,440, 110, 117, 110,117 
500 FOR G=1 TO 26 

510 READ R 

320 CALL SOUND(100,R,1) 

3530 NEXT Q 

540 FOR I=1 TO 27 


550 A$="1 -- GIORNO DELLA SETTIMANA" 


BASIL 


PARTE GRAFICA 


360 
570 
3580 
390 
600 
610 
620 
630 
640 
650 
660 
670 
6890 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
799 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 


FELT AAITTII IE 


L=ASC(SEG$(A$,I,1)) 

CALL HCHAR(14,2+I,L) 

NEXT I 

FOR W=1 TO 200 

NEXT W 

FOR I=1 TO 27 

A$="2 -- GIORNI FRA DUE DATE" 
L=ASC(SEG$(A$,I,1)) 

CALL HCHAR(14,2+I,L) 

NEXT I 

FOR W=i TO 200 

NEXT W 

A$="3 -- RADIANTI IN GRADI n 
FOR I=1 TO 27 
L=ASC(5EG$(A$,I,1)) 

CALL HCHAR(14,2+I,L) 

NEXT I 

FOR W=1 TO 200 

NEXT W 

A$="4 -- GRADI IN RADIANTI " 
FOR I=1 TO 27 
L=ASC(SEG$(A$,I,1)) 

CALL HCHAR(14,2+I,L) 

NEXT I 

FOR W=1 TO 200 

NEXT W 

A$="S -- INTERPOLAZIONE LINEARE" 
FOR I=1 TO 27 
L=ASC(SEG$(A$,1,1)) 

CALL HCHAR(14,2+I,L) 

NEXT I 

FOR W=1 TO 200 

NEXT W 

A$="6 -- EQUAZIONI BIQUADRAT. " 
FOR I=1 TO 27 
L=ASC(SEG$(A$,I,1)) 

CALL HCHAR(14,2+I,L) 

NEXT I 


110,117,123,131,139, 147,139, 156, 147,175, 165,147,185, 208,196, 220, 220,311 


940 FOR W=l TO 200 
950 NEXT W 


9650 A$="7 -- PERMUTAZIONI E COMBIN. " 
970 FOR I=1 TO 27 

980 L=ASC(SEG$(A$,I,1)) 

990 CALL HCHAR(14,2+I,L) 


1060 
1070 
1080 
1090 
1100 
1110 


1300 
1310 
1320 
1330 
1340 


NEXT I 1350 
FOR W=1 TO 200 1360 
NEXT W 1370 


CALL SCREEN(2) 
CALL CLEAR 

CALL SCREEN(2) 

FOR COL=2 TO 14° 
CALL COLOR(COL, 16,2) 


1390 
1390 
1400 
1410 
1420 


NEXT COL 1430 
A$="PREMI : " 1440 
FOR I=i T0 8 1450 
L=ASC(SEG$(A$,1,1)) 1460 


FOR I=1 TO 22 

=ASC(SEG$(A$,1,1)) 

CALL HCHAR(11,1+I,L) 
NEXT I 
A$="5 => INTERPOLAZIONE LINEARE" 
FOR I=1 TO 27 
L=ASC(SEG$(A$,1,1)) 

CALL HCHAR(13,1+I,L) 

NEXT I 

A$="& => EQUAZIONE BIQUADRAT. " 
FOR I=1 TO 25 
L=ASC(SEG$(A$,I,1)) 

CALL HCHAR(15,1+I,L) 

NEXT I 

A$="7 => PERMUTAZ. E COMBINAZ ." 
FOR I=1 TO 27 
L=ASC(SEG$(A$,I,1)) 


1120 CALL HCHAR(2,10+I,L) 1470 CALL HCHAR(17,1+I,L) 
1130 NEXT I 1480 NEXT I 

1140 A$="1 => GIORNO DELLA SETTIMANA" 1490 A$="LA TUA SCELTA ? " 
1150 FOR I=1 TO 27 1500 FOR I=1 TO 16 

1160 L=ASC(SEG$(A$,I,1)) 1510 L=ASC(SEG$(A$,I,1)) 
1170 CALL HCHAR(5,1+I,L) 1520 CALL HCHAR(22,6+I,L) 
1180 NEXT I 1530 NEXT I 

1190 A$="2 => GIORNO FRA DUE DATE" 1540 CALL KEY(0,K,S) 

1200 FOR I=1 TO 24 1550 IF S=0 THEN 1540 
1210 L=ASC(SEG$(A$,I,1)) 1560 IF Kk=49 THEN 1640 
1220 CALL HCHAR:7,1+I,L) 1570 IF K=50 THEN 2240 
1230 NEXT I 1580 IF Kk=51 THEN 2860 
1240 A$="3 => RADIANTI IN GRADI" 1590 IF Kk=52 THEN 3100 
1250 FOR I=i TO 22 1600 IF K=53 THEN 3340 
1260 L=ASC(SEG$(A$,I,1)) 1610 IF K=54 THEN 3590 
1270 CALL HCHAR(9,1+I,L) 1620 IF K=55 THEN 3980 
1280 NEXT I 1630 GOTO 1540 

1290 A$="4 => GRADI IN RADIANTI" 1640 CALL CLEAR 

1650 CALL SCREEN(2) 

1560 CALL COLOR(13,16,2) 

1670 PRINT " GIORNO DE 

LLA SETTIMANA " 

1680 PRINT " 

15690 PRINT " 

1700 PRINT " PREMERE UN TASTO 

1710 PRINT 

1720 PRINT 

1730 PRINT 

1740 PRINT 

1750 CALL KEY(0,k,5S) 


1760 IF S=0 THEN 1750 

1770 CALL CLEAR 

1780 PRINT" = --------------- 

IRE I DATI" 

1790 PRINT " 

1800 PRINT " 

1810 PRINT " 

1820 INPUT " GIORNO IN ESAME (NUMERO)? ":D 
1830 PRINT" 2334444040464"! 

1840 INPUT " MESE IN ESAME(NUMERO)? ":M 
1950 PRINT O" xa" 


INSER 


1860 INPUT " ANNO 


IN ESAME (NUMERO)? ":Y 


1870 IF M>2 THEN 1900 


1880 M=M+12 
1890 Y=Y.1 


1900 N=D+2*M+INT(.6%*(M+1))+Y+INT(Y/4)-INT(Y/100)+INT(Y/400)+2 

1910 N=INT((N/7-INT(N/7))#*7+.5) 

1920 IF N>0O THEN 1950 

1930 PRINT ::::5:111331"--RISULTATO--"::0"L""3D5"/"3M3"/"sYs "ERA UN SABATO" 


1940 GOTO 2110 


1950 IF N>i THEN 1980 
1960 PRINT 1:::::::1111"--RISULTATO--"113"L?"3D5"/"3M53"/"3Ys "ERA UNA DOMENICA" 


1970 GOTO 2110 
1980 IF N>2 THE 
1990 PRINT :::: 
2000 GOTO 2110 
2010 IF N>3 THE 
2020 PRINT :::: 
2030 GO0T0 2110 
2040 IF N34 TH 
2050 PRINT ::: 
2060 GOTO 2110 

H 

(o) 


seo 7 


ss 7 


2070 IF N>S UT 
2080 PRINT :: 
2090 GOTO 211 
2100 PRINT :: 
2110 PRINT 
2120 PRINT 
2130 PRINT 


1:31:"--RISULTATO--"1:11"L*"3Ds"/"3Ms"/"3Ys "ERA UN LUNEDI *" 


233111"--RISULTATO--"133"L?"3D8"/"sMs"/"5Yi "ERA UN MARTEDI®" 


t:11111"--RISULTATO--"10:"L*"5D3"/"3M5"/"3Ys "ERA UN MERCOLEDI *" 


133:"--RISULTATO--"133"L?"3D5"/"5M;"/"sYi "ERA UN GIOVEDI" 


trrr1:111"--RISULTATO--"303"L*"3D3"/"3M3"/"3Ys "ERA UN VENERDI *" 


2140 PRINT "PREMI: INUOVI DATI 2CAMBIARE" 
2150 CALL KEY(0,K,5) 

2160 IF S=0 THEN 2150 

2170 IF K=ASC("1")THEN 2220 

2180 IF K=ASC("2")THEN 2190 


2190 CALL CLEAR 
2200 GOTO 2150 

2210 GOTO 2150 

2220 CALL CLEAR 
22350 GOTO 1780 

2240 CALL CLEAR 
2250 PRINT " 

RA DUE DATE 


GIORNO F 


2260 PRINT :::::s:rorito 


2270 PRINT " 


PREMERE UN TASTO 


2280 CALL KEY(0,K,S) 
2290 IF S=0 THEN 2280 


2300 CALL CLEAR 


2310 A$="--------- 


E INSERIRE I DATI 


dosnlicaded from sietiSSiuni /- ———---—- " 


2320 PRINT " 


2330 PRINT "*#*+*+**%* PRIMA DATA xxXxxee "11: 
2340 INPUT "GIORNO (NUMERO)  ? ":D1 


23550 INPUT "MESE 
2360 INPUT "ANNO 


(NUMERO) ? ":Mi 
(NUMERO) ? ":VYi 


2370 PRINT 1111 ”#4444##* SECONDA DATA de” pini 
2380 INPUT "GIORNO (NUMERO) ?":D2 


2390 INPUT "MESE 
2400 INPUT "ANNO 
2410 M=MI 

2420 D=DI 

2430 Y=Y1 

2440 GOSUB 2590 

2450 N=A 

2460 M=M2 


(NUMERO) ?":M2 
(NUMERO) ?":Y2 


2470 D=D2 

2480 Y=Y2 

2490 GOSUB 2590 

2500 N=A-N 

2510 PRINT :1111111"-------------------------—- 
RENZA = "sN5" GIORNI" 

2520 PRINT :::: "PREMI 1)NUOVI DATI 2)FINIRE":::: 
2530 CALL KEY(0,K,5) 

2540 IF S=0 THEN 2530 

2550 IF K=ASC("1")THEN 2300 ELSE 2560 

2560 CALL CLEAR 

2570 GOTO 1060 
2580 REM 

2590 ON M GOTO 
2600 PRINT ::: 
2610 RETURN 
2620 IF D>31 THEN 2600 

2630 GOTO 2710 

2640 IF Y/4<>INT(Y/4)THEN 2670 

2650 IF Y/400=INT(Y/400)THEN 2680 

2660 IF Y/100<>INT(Y/100)THEN 2680 

2670 IF D>28 THEN 2600 

2680 IF D>29 THEN 2600 

2690 GOTO 2710 

2700 IF D>30 THEN 2590 

2710 DATA 0,31,59,90,120, 151, 181,212 

2720 DATA 243,273,304, 334 

2730 RESTORE 

2740 FOR Q=1 TOM 

2750 READ A 

2760 NEXT Q 

2770 RESTORE 

2780 A=A+Y*365+INT(Y/4)+D+1-INT{(Y/100)+INT(Y/400) 
2790 IF INT(Y/4)<>Y/4 THEN 2850 

2800 REM 

2810 IF Y/400=INT(Y/400) THEN 2830 

2820 IF Y/100=INT(Y/100)THEN 2840 

2830 IF M>2 THEN 2850 

2840 A=A-1 

2850 RETURN 

2860 CALL CLEAR 


2870 PRINT " RADIANT 
I IN GRADI " 
2880 PRINT :1tr:r:sisi::” PREMERE UN TASTO 


2890 CALL KEY(0,K,S) 

2900 IF S=0 THEN 2890 

2910 CALL CLEAR 

2920 INPUT " RADIANTI ? ":R 
2930 A=3600#190#R/3. 1415927 
2940 D=INT(A/3600) 

2950 DI=INT(D/360) 

2960 GRADI=D-360*D1 

2970 MIN=INT((A-D#*3600)/60) 
2980 S=A-D#3600-(INT(A-D#3600) /60)) #50 
2990 SEC=INT(100*S+.5)/100 


DIFFE 


2620, 2640, 2620, 2700, 2620, 2700, 2620, 2620, 2700, 2620, 2700, 2620 
3:1:"--- ERRORE -":"DATA IRREAL E"::: 


3000 PRINT 1333131113 008"-----__----—---------------- RISULTATI "::t: 
3010 PRINT "GRADI = "iGRADI::: 

3020 PRINT "MINUTI= "sMIN::: 

30350 PRINT "SECONDI="3SEC::: 

5040: PRINT *—_cnonnceoueci PREMI 1FINIRE 2 CONTINUARE"::: 


3050 CALL KEY(0,K,S) 
3060 IF S=0 THEN 3050 

3070 IF K=ASC("2")THEN 2910 ELSE 3080 
3080 CALL CLEAR 

3090 GOTO 1060 


3100 
3110 
ANTI 
3120 
31350 
3140 
3150 
3160 
3170 
RE I 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 


CALL CLEAR 

A$=" GRADI IN RADI 
B$=" PREMERE UN TASTO 

PRINT " STASI "3B$ 


CALL KEY(0,K,S) 


IF S=0 THEN 3140 

CALL CLEAR 

PRINT" = -__------------ INSERI 
DATE... ee ee A ent SHBBHEHE 

INPUT" FIHIEIIIIEIEII IEEE ANGOLO IN GRADI ? ":D 

INPUT """ ""IN PRIMI ? ":M 

INPUT """ ""IN SECONDI?":S 

PRINTO "O FIFIPIPIPIPIRI PIETER rr: 


A=D+M/650+5/3600 

R=INT(A/360) 

RADIANTE=A+*0. 1745329-R#6. 28931855 

PRINT "L'ANGOLO DI GRADI : "iDs",PRIMI : "sMi", SECONDI : "Ss" E° UGUALE A 


"s RADIANTI; " RADIANTI":::: 


3260 
3270 
3290 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
IONE 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 


3990 


3560 
3570 
3580 
3390 
3600 


PRINT :::::: "PREMI INUOVI DATI 2CAMBIARE.":: 
CALL KEY(0,kK,S) 

IF S=0 THEN 3270 

IF K=ASC("1")THEN 3080 

IF K=ASC("2")THEN 3320 

GOTO 3270 

CALL CLEAR 

GOTO 1030 

CALL CLEAR 

PRINT " INTERPOLAZ 
LINEARE Mani 
PRINT " PREMERE UN TASTO 


CALL KEY (0,K,S) 

IF S=0 THEN 3370 

CALL CLEAR 

INPUT "COORDINATE (X,Y) DEL PRIMO PUNTO ? ":X1,VYi 
INPUT "COORDINATE (X,Y) DEL SECONDO PUNTO?":X2,Y2 
INPUT "INTERPOLAZIONE X = ?":X 
Y=Y1+(Y2-Y1)/(X2-X1)*(X-X1) 

PRINT "INTERPOLAZIONE Y = ";Y 

PRINT ::::: "ALTRI PUNTI SU QUESTA LINEA ? (S/N) ":: 
CALL KEY(0,K,5S) 

IF S=0 THEN 3460 

IF K=ASC("S")THEN 3420 

PRINT ::s: 

PRINT "PREMI 1 RICOMINC. 2 CAMBIARE" 

PRINT :t::: 

CALL KEY(0,kK,S) 

IF S=0 THEN 3520 

IF K=ASC("1")THEN 3390 

IF K=ASC("2")THEN 3570 

GOTO 3520 

CALL CLEAR 

GOTO 1050 

CALL CLEAR 

PRINT " EQUAZIONI 


BIQUADRATICHE GU 


3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 


PRINT " PREMERE UN TASTO 


CALL KEY(0,K,SY 
IF S=0 THEN 3620 


CALL CLEAR 
REM 
PRINT "EQUAZONE TIPO: ":::"A#*(X%4)+B*(X®2)+C=0"rsiiissr: 


PRINT " INSERIRE I COEFFICIENTI"::: 
INPUT "COEFFICIENTE DI A ?_":hA 


3690 INPUT """ “i DI B 2 "3B 
3700 INPUT """ "" DI CC? ":C 
3710 DELTA=(B"2)-(4#*A*C) 

3720 IF DELTA<O THEN 3960 

3730 S0=(-B+SOR(DELTA))/(2*A) 

3740 IF SO<0 THEN 3880 

3750 SOL=(-B-SQR(DELTA))/(2#A) 

3760 IF SOL<0O THEN 3880 

3770 PRS=S@R(SO) 

3780 SEC=-SOR(SO) 

3790 TES=S@R (SOL) 

3800 QUS=-SOR (SOL) 

3810 PRINT "1 SOLUZIONE=";PRS 

3820 PRINT "2 "" ""=" SEC 

3830 PRINT "3 "" ""="s TES 

3840 PRINT "4 "" ""="5 QUS 

3850 GOTO 3890 

3860 PRINT "IL 1.DISCRIMINANTE E° ":DELTA;",PERCIO" ESSENDO ""<0"",L’EQUAZIONE N 
ON AMMETTE SOLUZIONI REALI." 

38970 GOTO 3890 

3880 PRINT "IL 2.DISCRIMINANTE E" +/-"350;",PERCIO" ESSENDO ""<0"",L’*EQUAZIONE N 


ON AMMETTE SOLUZIONI REALI." 


3890 
3900 


PRINT :1:t:: 
PRINT :::"PREMI: 1)DI NUOVO, 2)CAMBIARE":: 


3910 CALL KEY(0,K,S) 

3920 IF S=0 THEN 3910 

3930 IF K=ASC("1")THEN 3640 

3940. IF K=ASC("2") THEN 3960 

3950 GOTO 3900 

3960 CALL CLEAR 

3970 GOTO 1030 

3980 CALL CLEAR 

3990 PRINT " PERMUTAZION 
I E COMBINAZIONI #5 
4000 PRINT 1i:ririsi” PREMERE UN TASTO 
4010 CALL KEY(0,kK,S) 


4020 IF S=0 THEN 4010 
4030 CALL CLEAR 
4040 INPUT "- NUMERO TOTALE DI OGGETTI ?":N 
4050 INPUT "- QUANTI ALLA VOLTA ? ":D 
4060 IF D<=N THEN 4090 
4070 PRINT " *#** ERRORE SOTTOGRUPPO TROPPO 
GRANDE ":::: 
4080 GOTO 4040 
4090 P=1 
4100 C=1 
4110 FOR I=N-D+1 TON 
4120 IF 1.7E38/I>=P THEN 4150 
4130 PRINT "> 1.7E38 PERMUTAZIONI"::: 
4140 GOTO 4210 
4150 P=PxXI 
4150 NEXT I 
4170 FOR J=2 TO D 
4180 C=C#J 
4190 NEXT J 
4200 PRINT " RISULTATI:"::P3" PERMUTAZIONI"::P/C;"COMBINAZIONI"::: 
4210 PRINT "FREMI 1)DI NUOVO, 2)CAMBIARE." 
4220 CALL KEY(0,K,5) 
4230 IF S=0 THEN 4220 
4240 IF K=ASC("1")THEN 3980 
4250 IF K=ASC("2")THEN 4270 
42650 GOTO 4220 
4270 CALL CLEAR 
280 GOTO 1030 


4290 


END 


FOR J=1 TO LEN(B$) 
L=ASC(SEG$(B$,J,1)) 
CALL HCHAR(14,16+J,L) 
NEXT J 

C$="PARABOLE" 

FOR J=i TO LEN(C$) 
L=ASC(SEG$(C$,J,1)) 
CALL HCHAR(18,16+J,L) 
NEXT 
CALL SOUND(150, 659,2) 

CALL SOUND(150,587,2) 

CALL SOUND(300,523,2) 

CALL SOUND (300,440,2) 

CALL SOUND(300, 698, 2, 440,5) 
CALL SOUND(300,784,2,587,5) 
CALL SOUND(150,698,2,392,5) 
CALL SOUND(150,659,2) 

CALL SOUND(1000, 698, 2,440,5) 
FOR T=1 TO 1000 

NEXT T 

CALL CLEAR 

PRINT "PREMI:":: 


Cu 


PRINT "1 STUDIO DELLA PARABOLA":: 
PRINT "2 INTERSEZIONE CON UNA RETTA":: 
PRINT "3 PARABOLA PASSANTE PER TRE 


PRINT "4 FINE":::: 
CALL KEY(0,kK,S) 

IF S=0 THEN 1040 

IF K=49 THEN 1100 

IF K=50 THEN 2000 

IF K=51 THEN 3500 

IF K=52 THEN 10000 
GOTO 1040 

REM +*STUDIO PARABOLA* 
CALL CLEAR 

SCELTA=1 
PRINT " 
PRINT TAB(9); "Y=Ak#X "5; 

CALL HCHAR(24, 16,35) 

PRINT TAB(15);"+B#X+C"::s:: 
GOSUB 3250 

CALL CLEAR 

VX=INT (-B*1000/ (2*A))/1000 
DELTA=B"*2-4*A*C 
VY=INT(-DELTA*1000/ (4*A))/1000 


PRINT "COORDINATE DEL VERTICE: ":: 


PRINT "V = (’sVXs","iWVs") "is: 
PRINT "ASSE DI SIMMETRIA:":: 
PRINT "X ="sVX::: 


YF=INT(1000*(1/(4*A)-DELTA/(4#*A)))/1000 


PRINT "COORDINATE DEL FUOCO: ":: 
PRINT "F = (C"sVXs","iYFs") "it: 


YD=INT(1000*(-1/(4*A)-DELTA/ {(4*A)))/1000 


PRINT "DIRETTRICE: ":: 
PRINT "Y ="sYD:::s: 
GOSUB 5000 


PRINT "INTERSEZIONE CON L'ASSE Y:":: 


PRINT "Y ="5Ct:: 
IF DELTA>=0 THEN 1340 


PRINT "LA PARABOLA NON INTERSECA 


GOTO 1380 
X1={(-B-SOR (DELTA) )/{2*A) 
X2= (-B+SQR (DELTA) ) / (2*A) 


PRINT "INTERSEZIONE CON L'ASSE X:":: 


EQUAZIONE DELLA PARABOLA":: 


100 
110 


130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
2350 
240 
250 
260 
270 
280 
290 
300 
310 
320 
33 

340 
390 
360 
370 
380 
390 
400 
410 
420 
4350 
440 
450 
460 
470 
480 
490 
300 
305 
310 
600 
610 
620 
63 

640 
650 
660 
670 
680 
690 
700 
701 
702 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


KELLEKELKLEKAAIIERA 


GEOMETRIA 
ANALITICA 


PARABOLE. 


*o* ko ko * * 
Vox * o» * 


LEA Z AAA Li ii 


BASIC 
CLEAR 


CHAR (128, "0000000000006080" ) 
CHAR (129, "0000000065060" ) 
CHAR (1350, "00006060" ) 

CHAR (1351, "6060") 

CHAR (132, "0000000000000606" ) 
CHAR (133, "0000000000006658" ) 
CHAR (134, "0000000060500606" ) 
CHAR (1355, "00006060000006506") 
CHAR (136, "6060000000000608") 
CHAR (137, "000000000606" ) 
CHAR (1358, "00000000060656060") 
CHAR (139, "000000006666" ) 
CHAR (140, "000060600606" ) 
CHAR (141, "6065000000606" ) 
CHAR (142, "00000606") 

CHAR (143, "00000606500006060") 
CHAR (144, "0000060665060" ) 
CHAR (145, "00006666" ) 

CHAR (146, "80600606" ) 

CHAR (147, "0606") 

CHAR (148, "06060000000060850") 
CHAR (149, "060500006060" ) 
CHAR (150, "06066060" ) 

CHAR (151, "6666") 

CHAR (152, "0301010101010101") 
CHAR (153, "FFO1") 

CHAR (154, "OF01010101010101") 
CHAR (155, "FFO10101") 

CHAR (156, "FFO1010101010101") 
CHAR (157,"0") 

CHAR (35, "701070407" ) 


DEF Y=A#X*X+B*X+C 


REM 


* TITOLO * 


FOR C=135 TO 15 


CALL 
NEXT 
CALL 


COLOR (C, 2,16) 
C 
COLOR (15,9,16) 


FOR RIGA=4 TO 22 


CALL 
NEXT 
CALL 
CALL 
CALL 


HCHAR (RIGA, 3,157, 12) 
RIGA 
HCHAR(13,3,153,12) 
VCHAR (4,8, 152,19) 
HCHAR (13,8,156) 


A=-.7 
B=-10 


L'ASSE DELLE X.":::: 


703 C=-32 

705 GOSUB 3000 

710 A$="GEOMETRIA" 

720 FOR J=1 TO LEN(A$) 
730 L=ASC(5EG$(A$,J,1)) 
740 CALL HCHAR(12,16+J,L) 
750 NEXT J 

760 B$="ANALITICA" 


PRINT "X1 ="s INT{1000#*X1)/1000,"X2 ="s INT(1000#X2)/1000:ssr: 


INPUT "VUOI IL GRAFICO? ":R$ 


1390 
1400 
1410 
1420 
1430 
1432 
1435 
1440 
1450 
1460 
1470 
1480 
1482 
1484 
1490 
1500 
1500 
1610 
1620 
1630 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 

2080 
2081 

2082 
2083 
2084 
2090 
2091 

2092 

2093 
2094 
2095 
2100 
2110 
2120 
2130 
2140 
2150 
2152 
2154 
2156 
2160 
2170 
2180 
2190 
2195 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2300 
2310 
2320 


2330 


IF SEG$(R$,1,1)="S" THEN 1410 2540 GOSUB 5200 

GOTO 970 2350 GOSUB 5000 

SORERAI 2 " FATTORE DI SCALA? (S/N) ":R$ 
GOSUB 64000 2360 INPUT "VUDI IL GRAFICO CON UN ALTRO 7 : 
GOSUB 3000 2370 IF SEG$(R$,1,1)="S" THEN 2390 

IF SCELTA=2 THEN 2300 

GOSUB 5100 

GOSUB 5000 

INPUT "VUOI IL GRAFICO CON UN ALTROFATTORE DI SCALA? (S/N) ":R$ 

IF SEG$(R$,1,1)="S" THEN 1480 

GOTO 970 2380 GOTO 970 

PRINT :::: 2390 PRINT :::: 

A=A/SCALA 2400 AA=AA/SCALA 

C=C*SCALA 2410 CC=CC*SCALA 

INPUT "SCALA? (N>0) ": SCALA 2415 Q=Q*SCALA 

IF SCALA<=0 THEN 1490 2420 INPUT "SCALA? (N>0) ":SCALA 
A=A*SCALA 2430 IF SCALA<=0 THEN 2420 
C=C/SCALA 2440 AA=AAR*SCALA 

CALL CLEAR 2450 CC=CC/SCALA 

GOTO 1420 2455 0=0/SCALA 

REM »*INTERSEZIONE* 2460 A=AA 

CALL CLEAR 2470 B=BB 

PRINT "INTERSEZIONE CON UNA RETTA":::: 

INPUT "VUOI SCRIVERE I COEFFICIENTIIN FORMA FRAZIONARIA? ":R$ 

IF SEG$(R$,1,1)="N" THEN 2100 

PRINT "PARABOLA: ":: 2480 C=CC 

GOSUB 3310 2490 CALL CLEAR 

PRINT :::: 2500 GOSUB 6000 

PRINT “"RETTA:":: 2510 GOSUB 3000 

INPUT "COEFF. ANGOLARE? (M1,M2) ":Mi,M2 2520 GOTO 2300 

IF M2<>0 THEN 2084 2990 REM &*ROUTINE STAMPA» 
PRINT "ERRORE !":» 3000 FOR XX=-12 TO 12 

GOTO 2080 3010 X=XX-.75 

M=M1/M2 3020 IF ABS6Y)>10 THEN 3105 
INPUT "TERMINE NOTO? (01,02) ":01,02 3030 DIFF=Y-INT(Y) 

IF Q2<>0 THEN 2094 3040 IF DIFF<.1 THEN 3080 
PRINT "ERRORE!":: 3050 RIGA1=INT(Y)+1 

GOTO 2090 3060 PI=INT(DIFF*4)+1 
Q=01/02 3070 GOTO 3100 

GOTO 2150 3080 RIGA1=INT(Y) 

PRINT "PARABOLA: ":: 3090 P1=4 

INPUT "(A,B,C) ":A,B,C 3100 CALL HCHAR(13-RIGA1,16+XX,127+P1) 
PRINT ::3:: 3102 GOTO 3110 

PRINT "RETTA:":: 3105 P1=0 

INPUT "(M,0) ":M,Q 3110 X=XX-.25 

PRINT 1::: 3120 IF ABS(Y)>10 THEN 3210 
AA=A 3130 DIFF=Y-INT(Y) 

BB=B 3140 IF DIFF<.1 THEN 31890 
Ce=C 3150 RIGA2=INT(Y)+1 
DISCR=(B-M) *2-4+A*(C-0) 3160 P2=(INT(DIFF*4)+1)+5 
IF DISCR>=0 THEN 2200 3170 GOTO 3195 

PRINT "NON ESISTONO PUNTI DI INTER-SEZIONE"::::: 

ui. 3180 RIGAZSINT (VI 

X1=(- (B-M) -S@R(DISCR) ) / (2A) again sà 
X2=(- (B-M)+SQR(DISCR) ) / (24A) 3198 P_RABAPeR GRZ" IAS 3500) 
Yi=M*X1+0 3196 P1=0 u 
V2=MxX2+0 3200 CALL HCHAR(13-RIGAZ, 16+XX,127+F1+F2) 
PRINT "PUNTI DI INTERSEZIONE:":: 3210 NEXT XX 

PRINT "P1 = ("s INT(1000#X1)/10003","s INT(1000#Y1)/1000;")"1: 

PRINT "P2 = (’“sINT(1000#X2)/10005","3s INT (1000*Y2)/10005")"srst: 
SCELTA=2 

GOTO 1380 3220 RETURN 

A=0 3240 REM »* INPUT A,B,C * 

B=M 3250 INPUT "VUOI SCRIVERE LE COSTANTI INFORMA FRAZIONARIA? (S/N) ":R% 
C=Q 3260 PRINT ::: 


GOSUB 3000 3270 IF SEG$(R$,1,1)="S" THEN 3300 


REM #*DETERMINANTE* 


DETERM=D1*(DS*D9-D8*Dé6)-D2*(D4*D9-D7*D6)+D3#(D4*D8-D7*DS5) 


IF DETERM<>0 THEN 4990 
PRINT ::: 


PRINT "SPIACENTE, NON POSSO DARE LARISPOSTA."::: 


FOR T=1 TO 1000 

NEXT T 

GOTO 970 

RETURN 

CC$="#% PREMI 1 PER CONTINUARE" 
FOR J=1 TO LEN(CC$) 
L=ASC(SEG$(CC$,3,1)) 
CALL HCHAR(24,3+3,L) 
NEXT J 

CALL KEY(0,K,5) 

IF S=0 THEN 5050 

IF K<>49 THEN 5050 
CALL CLEAR 

RETURN 

CALL SOUND(150, 440,2) 
CALL SOUND(150,466,2) 
CALL SOUND(300, 523,2) 
CALL SOUND (300,440, 2) 
CALL SOUND (300, 587,2) 
CALL SOUND (300,784, 2) 
CALL SOUND (500, 659,2) 
RETURN 

CALL SOUND (300, 698,2) 
CALL SOUND(300,932,2) 
CALL SOUND (300, 784,2) 
CALL SOUND (300, 880,2) 
CALL SOUND (150,932,2) 
CALL SOUND (150,880,2) 
CALL SOUND (150,784,2) 
CALL SOUND (150, 880,2) 
CALL SOUND (500, 699,2) 
RETURN 

REM »#*ASSI CARTESIANI* 
CALL CLEAR 

FOR CO=13 TO 15 

CALL COLOR(C0, 2,1) 

NEXT CO 

CALL COLOR(16,9,1) 

CALL HCHAR(13,3,153,28) 
CALL VCHAR(3, 16,152, 20) 
FOR COLON=6 TO 26 STEP 5 
CALL HCHAR(13, COLON, 155) 
NEXT COLON 

CALL HCHAR(13, 16,156) 
CALL HCHAR(8,15,154) 
CALL HCHAR(18, 16,154) 
SCAL$="SCALA= 1 : "&STR$(SCALA) 
FOR J=1 TO LEN(SCAL$) 
L=ASC(SEG$(SCAL$,J,1)) 
CALL HCHAR(1,2+3,L) 


O NEXT J 


RETURN 

CALL CLEAR 
PRINT " 

GOSUB 5200 

FOR T=1 TO 500 
NEXT T 

CALL CLEAR 

END 


3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
35650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
38960 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 


IF SEG$(R$,1,1)="S" THEN 3600 
PRINT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
Di=X1#X1 

D2=X1 

D3=1 

D4=X2+X2 

DS=X2 

D6=1 

D7=X3*X3 

D8=X3 

D9=1 

GOSUB 4900 

DD=DETERM 

Di=vYl 

D4=Y2 

D7=Y3 

GOSUB 4900 

DD1=DETERM 

DI=X1*X1 

D4=X2*X2 

D7=X3#*X3 

D2=Y1 

DS=Y2 

D8=Y3 

GOSUB 4900 

DD2=DETERM 

D2=X1 

DS=X2 

DS=X3 

D3=Y1 

D6=Y2 

D9=Y3 

GOSUB 4900 

DD3=DETERM 
A=INT(1000#*DD1/DD)/1000 
B=INT(1000*DD2/DD) /1000 
C=INT(1000*DD3/DD) /1000 
PRINT " v=A*X "i 
CALL HCHAR(24, 14,35) 
PRINT TAB(15);"+BxX+C"s:: 
PRINT 
PRINT "B 
PRINT "C 
GOTO 1380 


"PUNTO 1:1":: 
"COORDINATE? (X,Y) 
s:"PUNTO 2:":: 
"COORDINATE? (X,Y) 
s:"PUNTO 3:":: 
"COORDINATE? (X,Y) 


"iX1,VY1 
"i X2,Y2 


"3X3,Y3 


3380 PRINT :: "NON RISULTA UNA RETTA!!!" 


3370 IF Ac>0 THEN 3400 


3400 RETURN 


n 
cs 


A1,A 
":B1,B2 
":C1,C2 


(A1,A2) ": 


*FRAZIONI # 


"A = 


90 GOTO 3370 


00 REM 


3280 INPUT "COSTANTT? ( A,B.,C)""A,B,C 
S310 INPUT " A 


Hou 
si 
32 


II 


se 
di 


Consinida don iL h$90 


P* 


*PARABOLA FER 33 


3500 CALL CLEAR 
3510 SCELTA 


3490 REM 


(B1,B2) 


3520 INPUT " B = 


) 


pa 
- 


(C1L,C 


O INPUT " C = 


rr 


SI: dÒ 


rà 
Mio 


=h1/A2 
B1/E 


340 A 


> 
IO 


3520 PRINT "FARABOLA PASSANTE PER TRE 


PUNTI. ": 


3530 INPUT "VUOI SCRIVERE LE COORDINATE IN FORMA FRAZIDNARIA? 


9 
pai 


O BR 


ir-de o 
DI ENI | 


eu 


":R$ 


C=C1/C2 


I A ta) (O) 


100 REM 161644353t36363616341634363446363646 
110 REM * CANNIBALS * 

120 REM 2#1161611361E3t 31311363630 

130 REM 

140 REM 

150 REM 

160 REM 

170 REM TI BASIC, OR 

180 REM TI EXTENDED BASIC 

190 REM TT 

200 GOSUB 380 

210 DIM D{6,2) 

220 CALL CLEAR 

230 PRINT "TYPE 1- FOR JOYSTICK. ": : 3: :"TYPE 2- FOR ARROW KEYS. ": 


240 CALL KEY(0,K,S) 

250 IF S=0 THEN 240 

260 IF K=49 THEN 290 

270 IF K=50 THEN 340 

280 GOTO 240 

290 AA=1 

300 CALL CLEAR 

310 CALL SCREEN(7) 

320 PRINT "PLACE ALPHA LOCK UP." 
330 GOTO 350 


n 

Da 

Mm 

+ 

(n) 

& «e 
340 PRINT "PRESS ALPHA LOCK DOWN. " o 3 5 È 
350 FOR DEL=1 TO 200 E og © 
360 NEXT DEL dg pote 
370 GOTO 560 = STAR 
380 CALL CLEAR = a Sgr£ELE e 
3PO PRINT "IAA6A0AEIEAE IEEE 1161616166966 363636363636" oe Gis Sg: 
400 PRINT "* +" tot wéfrtrzxrrox 
410 PRINT "»* CANNIBALS * ESTE EISSLIIZE 
420 PRINT "* #" Srf..8S2292575 
430 PRINT PT 22 70222222322 %% 0 dl I 25 JE A 5 ii 247] a - 
440 RESTORE 490 Sauna z434zB4 
450 FOR NOTE=1 TO 29 SATA IE AI 
460 READ A,B MENIRBSISENS 


480 CALL SOUND(200*A,B/2.7,0) 
490 DATA 1,1109,1,1661,1,1397,.5,1245,.5,1397,2,1109,2,831 

500 DATA 1,1109,1,1661,1,1397,.5,1245,.5,1397,2,1109,2,831,1,44000 
510 DATA 1,1109,1,1397,.5,1245,.5,1109,2,1245,2,1661,1,44000 
520 DATA 1,1109,1,1397,.5,1245,.5,1109,2,1245,2,831,1,44000 
530 NEXT NOTE 

540 RANDOMIZE 

550 RETURN 

560 FOR T=1 TO 100 

570 NEXT T 

580 LI=0 

590 CALL CLEAR 

600 REM DEFINE GRAPHICS AND COLOR 

610 RESTORE 2320 

620 FOR X=1 TO 19 

630 READ A,A$ 

640 CALL CHARCA,A$) 

650 NEXT X 

660 FOR X=9 TO 14 

570 READ A,B 

580 CALL COLOR(X,A,B) 

6590 NEXT X 

700 CALL COLOR(1,6,4) 

710 CALL CLEAR 

720 CALL SCREEN(4) 


=5 THEN 980 


930 IF R 


1 TO INT(ABS(10-SAFE))#10 
INT (28*RND+3) 


860 CALL HCHARCINT(RND*18)+1,INT(RND*28)+3,33) 


870 NEXT X 
910 CALL GCHAR(D(R,1),D(R,2),CH) 


890 D(R, 1)=INT(17*RND+1) 
920 IF CH<>32 THEN 890 


850 FOR X 
880 FOR R=1 TO 6 
900 D(R,2) 


s1),D(R,2),112) 
31) ,D(R,2), 104) 


940 IF R=6 THEN 970 
950 CALL HCHAR(DIR 

960 GOTO 980 

970 CALL HCHAR(D(R 


980 NEXT R 
990 IF AA=1 THEN 1020 


1000 GOSUB 1980 
1010 GOTO 1030 


GOSUB 2280 

ZZ=ABS(ZZ-1) 

IF ZZ=1 THEN 990 

FOR X=1 TO 4 
MCX=(D(X,1)<D(6,1))-(D(X,1)>D(6,1)) 
MCY=(D(X,2)<D(6,2))-(D(X,2)>D(6,2)) 

IF (D(X,1)-MCX>18)+(D(X,1)-MCX<1)+(D(X,2)-MCY>31)+(D(X,2)-MCY<2)THEN 1190 
CALL GCHAR(D(X,1)-MCX,D(X,2)-MCY,CH) 

IF (CH=104)+(CH=32)THEN 1140 
MCX=INT(RND*3)-1 

MCY=INT (RND#*3)-1 

GOTO 1080 

D(X,1)=D(X,1)-MCX 

D(X,2)=D(X,2)-MCY 

IF (D(X,2)=D(6,2))#*(D(X,1)=D(6,1))THEN 1630 
CALL HCHAR(D(X,1)+MCX,D(X,2)+MCY, 32) 

CALL HCHAR(D(X,1),D(X,2),112) 

NEXT X 

GOTO 990 

REM MADE IT TO BOAT 

RESTORE 1270 

FOR I=1 TO 11 

READ P,N 

CALL SOUND (300#P,N,0) 

NEXT I 

DATA 1,932,1,932,2,1047,1,1047,1,1047,2,1047,1,1397,1,1245,1,1175,2,932,1,4 


SAFE=SAFE+1 

GOTO 1610 

REM CHECK FOR WIN 

FOR WIN=0 TO 4 

IF D(6,2)=WIN+M THEN 1220 

NEXT WIN 

REM SHARK EAT 
Z=D(6,2)+(D(6,2)=30)+(D(6,2)=31)#2 
CALL COLOR(9, 16,5) 

CALL HCHAR(19,Z,137) 

CALL HCHAR(19,Z+1,139) 

CALL HCHAR(20, Z, 138) 

CALL HCHAR(20, Z+1, 140) 

CALL HCHAR(21,Z+3,141) 

FOR J=1:TO 6 

CALL HCHAR(20, Z, 136) 

CALL SOUND (250, -5,0) 

CALL HCHAR(20, Z, 138) 

CALL SOUND(250, 44000, 30) 

NEXT J 

RESTORE 1520 

FOR SHA=1 TO 18 

READ A,B 

CALL SOUND(300#*A,B/2,0) 

DATA 1,1109,1,1319,1,1480,1,44000,3,1480 
DATA 1,1109,1,1319,1,1480,1,44000,3,1480 
DATA 1,1661,1,1661,2,1480 

NEXT SHA 

DEAD=DEAD+1 

CALL HCHAR(21,Z+3, 128,4) 

CALL HCHAR(20,Z+1, 128,2) 

CALL HCHAR(19,Z+1,128,2) 

CALL HCHAR(19,1,128,64) 

GOTO 780 

CALL HCHAR(D(6,1),D(6,2),120) 
CALL HCHAR(D(6,1),D(6,2)+1,121) 
CALL HCHAR(D(6,1)+1,D(6,2),122) 
CALL HCHAR(D(6,1)+1,D(6,2)+1,123) 


1570 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 


RESTORE 1720 
FOR SMO=1 TO 11 

READ A,B 

CALL SOUND (400*A,B/2,0) 

NEXT SMO 

DATA 2,1109,1,1047,1,1245,1,1109,1,932,2,1480 
DATA 1,1397,1,1661,1,1480,1,1245,2,2218 
DEAD=DEAD+1 

CALL HCHAR(D(6,1),D(6,2),32,2) 
CALL HCHAR(D(6,1)+1,D(6,2),32,2) 
GOTO 1610 

REM SUB TO CONT. 

CALL KEY(0,K,5) 

IF S=0 THEN 1790 

CALL CLEAR 

RETURN 

REM SCORE DISPLAY 
A$="CANNIBALS: "&STR$ (DEAD) 

PX=1 

GOSUB 1940 
A$="LIVINGSTON: "&STR$ (SAFE) 

PX=2 

GOSUB 1940 

FOR TD=1 TO 200 

NEXT TD 

CALL HCHAR(1,1,32,64) 

RETURN 

FOR X=1 TO LEN(A$) 

CALL HCHAR(PX,X+3,ASC(SEG$(A$,X,1))) 
NEXT X 

RETURN 

CALL KEY(1,K,5) 

MX=0 

MY=0 

IF (S<>0)#(K<6)THEN 2030 

RETURN 

ON K+1 GOTO 2040, 2020, 2060, 2080, 2020, 2100 
MX=1 

GOTO 2110 

MY=-1 

GOTO 2110 

MY=1 

GOTO 2110 

MX=-1 

IF (D(6,1)=1)#(MX=-1) THEN 2020 

IF D(6,1)+MX>18 THEN 1310 

CALL GCHAR(D(6,1)+MX,D(6,2)+MY,CH) 
IF CH=33 THEN 2020 
D(6,1)=D(6,1)+MX 

D(6,2)=D(6,2)+MY 

CALL HCHAR(D(6,1)-MX,D(6,2)-MY,32) 
IF D(6,2)%1 THEN 2210 

D(6,2)=31 

GOTO 2260 

IF D(6,2)<32 THEN 2240 

D(6,2)=2 

GOTO 2260 

IF D(6,1)>0 THEN 2260 

D(6,1)=1 

CALL HCHAR(D(6,1),D(6,2),104) 
RETURN 

CALL JOYST(1, MY, MX) 

MX=SGN (-MX) 

MY=SGN(MY) 

GOTO 2110 


2320 DATA 96, 000000003F 1F0F07, 97, FFAAFFFFFFFFFFFF, 98, 000000FFFFFFFEFC, 99, 0000000 


0C3C3C3C3 


23530 DATA 104, 1050503C113A2440, 112, 1010FC1028452210, 120, 03030107011F1F0F,121,808 


000E000F8F8F0 


2340 DATA 122,0F0F07,123,FOFOEO, 128,00, 129, 0000102844, 136, 7F3F1FOFO70FFFFF, 137, E 


OFOFBFCFEFFFFFB 


2350 DATA 138,7F3F3F3F1F0F0703, 139, 000000000000B0CO, 140, EOFOFBFCFEFFFFFF, 141,FF7 


E35C18, 33, 00187EFFFF7E18 


Fing 


2360 DATA 15,5,5,4,2,4,7,4,16,5,15,5 


dosnicaded from iipptifSiuc.it 
REMO 1343640353636 2634 3616166463 
REM * * 
REM *VALENTINO VIZZARI* 
REM =* S.COSTANTINO C. * 


REM * OTT 983 * 
REM è» * È 
REM # FRANCOMPUTERCLUB cX.L. 


REMO 20401020101016363616364636 4646363646 

CALL CLEAR 

DISPLAY "CALCOLO DELLE COORDINATE DEL VERTICE ISOLATO O STAZIONE -vV-,NOTE:" 
DISPLAY 

DISPLAY "LE COORDINATE (X,Y) DEL PUNTO VICINO -A- E DEL PUNTO LONTANO -B-;" 
DISPLAY 

DISPLAY "LE LETTURE ANGOLARI IN -A- E -B-;" 


DISPLAY 
DISPLAY "LA DISTANZA -VA- DALLA STAZIONE AL PUNTO VICINO -A-" 
DISPLAY 
PRINT 
PRINT "####* CALCOLO DEL VERTICE ISOLATO #44" 
PRINT x n 
DISPLAY "COORDINATE DI A E B?" TIOCERENI: > (95 = 20 
760 PRINT "(AV) = ="5 CAV) 
INPUT XA, YA, XB, YB Lera 
PRI ” X =" e " Me " We ” No 
PRINT_*XA XA, "YA="3VA, "XB="3xB, "YB=tivB 770 PRINT ,isAv lafso 
DVNALVE 790 PRINT 
SHIT 800 REM CALCOLO DEL DEV’ESSERE 
Ii 810 DISPLAY "AZIMUT (AB) E ANGOLO BAV?" 
i i 820 INPUT AZIMUT(AB),BAV 
PRINT 830 PRINT 
AZIMUT (AB) =ATN(DY/DX) #(200/ (4#ATN(1))) sO 
dA a ci 850 PRINT "AZIMUT (AB) ="3AZIMUT (AB) 
ubi 860 PRINT "ANGOLO (BAV)="; (BAV) 
PRINT "D="5D DIO. CRINE 
sù; 880 PRINT "DE ="3DE 
CRINT 890 PRINT 
DISPLAY "DIREZIONE AL CENTRO E AL PUNTO?" A n 
espe 900 DISPLAY "E, (DE)? 
, 
ti 910 INPUT E, DE 
PRINT "DIR CENTRO (VA)="3 (VA): "DIR PUNTO (VB)="3 (VB) 


IF (VA)>(VB)THEN 490 


V= (VA) - (VB) 920 DX=(E*COS(DE*(4#ATN(1))/200)) 
IF (VA)<(VB)THEN 510 930 DY=(E#SIN(DE*(4#ATN(1))/200)) 
V= ( (VA) +400)- (VB) 940 DISPLAY "XA, YA?" 

PRINT 950 INPUT XA,YA 

PRINT " V="3V 960 PRINT "XA ="5XA:"YA  =";YA 
PRINT 970 PRINT 

DISPLAY "DATI E,V,D?" 980 PRINT "DX=":DX:"DY="sDY 
INPUT E,V,D 990 PRINT 

PRINT 1000 XV=XA+DX 

PRINT "E="3E 1010 YV=YA+DY 

PRINT 1020 PRINT "XV="5XVs"YV="3YV 

W= (E#+SIN(V*(4*ATN(1))/200))/D#63.661977 1030 END 

PRINT "W="5W 

PRINT 

DISPLAY "DIREZ AL PUNTO E ANGOLO W(ANGOLO IN B)=" 

INPUT VB,W 

PRINT 

PRINT "DIR PUNTO (VB)="5 (VB): "ANGOLO W="3W 

PRINT 

AB= (VB) -W 

PRINT " AB="3AB 

PRINT 

DISPLAY "DIR (AV) E AB?" 

INPUT AV, AB 

PRINT 


BAV=AB-AV 


I ‘POKE*’ IN BASIC : ovvero 


E ti 
COME FARE IMPAZZIRE IL TI-99/4A !! (By RANDONE CARLO) 


Come è noto, il TI-99 non permette, nelle configurazioni base 

(TI BASIC) ed EXTENDED BASIC, l'uso dell'istruzione POKE che, 

nella maggioranza dei personal computer in commercio,serve a 

porre dei valori in determinate locazioni di memoria, nonchè 

a programmare in linguaggio macchina. 

Nonostante questo fatto, rilevabile fra l'altro dall'organizza 

zione interna del TI-99 (suddiviso in Video Display Processor 

ad indirizzamento indiretto e CPU), esiste il modo di accedere 

a delle locazioni di memoria in modo da ottenere degli effetti 

alquanto "strani". 

Tutti gli esempi sotto riportati si riferiscono alla configura 

zione EXTENDED BASIC, ma sono utilizzabili anche in TI-BASIC, 

tenendo conto di quanto segue: 

a) Al punto c della PROVA 1 e della PROVA 2, digitare "REM' al 
posto di *!*, in quanto il TI-BASIC non accetta il punto 
esclamativo al posto della parola ‘REM'; 

b) Al comando "LIST' (cfr. PROVA 2), se si usa il TI-BASIC si 
ottiene un insieme di linee orizzontali con i colori che si 
cambiano successivamente; il risultato è comunque meno ‘spet 


tacolare'che non usando l'Extended Baaic. 


a) Accendere il TI-99/4A. 
b) Selezionare l'Extended Basic, 


c) Premere, nell'ordine, i seguenti tasti: 


One 
f 


Ì 
UNO SHIETI PRESSIONE conte MPoRANEA 
DEI Yasri ED 


Abbiamo quindi scritto una linea di programma, contenente 3 ca 


ratteri: un 1, un !, un CTRL U (ASCII 149) che, non essendo de 





finito, non è visibile sul video, 
d) Dopo aver impostata la linea, premere ENTER per memorizzarla. 
e) Effettuare l'EDIT della linea, procedendo, come di consueto, 
in 2 fasi: 
- digitare il numero ci linea, che in questo caso è 1 ; 


- premere FCTN X (ossia b). 


Comparirà : 
1 'RANDOMIZE 
Questo significa che l'ASCII 149 (CTRL U) è stato interpretato 
dal TI-99/4A come la parola del linguaggio basic 'RANDOMIZE'. 
Ciò che interessa far notare sono 2 fatti : 
1) Inogni caso, l'EDIT porta il cursore subito dopo il numero 
di linea; 
2) CTRL U occupa un carattere (l'ASCII 149), mentre RANDOMIZE 
ne occupa ben 9, 


Poste queste indispensabili premesse, si può ora passare alla : 


a) Accendere il TI-99/4A (se è già acceso dare un BYE). 
b) Selezionare l'Extended Basic, 


c) Digitare la seguente linea di programma: 


1! seguito da 69 volte CTRL U 
d) Premere, quindi, ENTER per memorizzare la linea, 
e) Effettuare l'edit della linea 1, digitando 1 e premendo FCTN X 


(ossia i). 


Ognuno dei 69 CTRL U sarà visualizzato come un RANDOVIZE, ampli 
ficando così di 9 volte la lunghezza della linea 1. 

Questo fa sì che il numero di linea (1) esca superiormente dal 
video. Ma, come sappiamo, l'EDIT riposiziona il cursore immedia 
tamente Gopo il numero di linea, per cui, essendo tale numero 


fuori dal video, concettualmente il cursore risulta posizionato 


da qualche parte (!) nella memoria del TI-99. Stà cdi fatto che 
il cursore non ricomvoare più sul video, 
Ad EDIT terminato, le stranezze iniziano: lo schermo, da ciano 


che era, diventa blu scuro, 


Arrivati a questo punto si procede così : (procedendo diversamente... 
f) Premere 69 volte FCTN 1 (ossia 'DEL') ...basta provare 1!!!) 


la schermata scorre verso sinistra (anzichè, come succede di 
norma, verso l'alto); il video passa continuamente dal blu 
al bianco. 

Premere 58 volte il tasto 1 (uno) 

Al termine, lo schermo risulta verde e sono presenti delle 
righe bianche, 

Premere 29 volte il tasto Y? (zero) 

Al termine, i bordi superiore ed inferiore dello schermo ri- 
sultano grigi, mentre il resto del video è occupato da linee 
verdi e blu, 

Premere ENTER. 


Si ha l'emissione di un suono e lo schermo caiventa ciano, con 





numerosi caratteri bianchi visualizzati (segmenti e punti). 
1) Digitare LIST (anche se i caratteri che vengono digitati non 
sono visibili) e premere ENTER. 
Il LIST che si ottiene è alquanto strano; è però possibile ve- 
dere come il TI-99 riesca, dopo questo "trattamento", a gesti 


re il colore di ogni singolo PIXEL !! 


Per fermare l'esecuzione, premere FCTN = (‘QUIT’). 


NB.: in TI-BASIC i colori del video risultano diversi da quelli 


sovra esposti ai punti e,f,g,h,i. 





Continuando su questa ‘promettente’ strada, le stranezze che il 
TI-99 mette in scena sono innumerevoli, Chi riuscisse ad ottene | 
re dei risultati positivi overando sulla linea tracciata da queste | 


° ° rene rro e 
mie voche righe, me lo faccia sapere. Grazie, RANDONE CARLO 


doinioaded from sti SSiuo.it VA 54 È r. Tori no {io 1 
; 10034 CHIVASSO (ro) 
cli i i. 





LO 4644469636360 IEEE IEEE 
110! 
120 ! SPRITE COLOR GRAPHICS 
130 ! 

140! 
150 ! 
1650 ! 
\WA0MBMETTTTTTTTTTTTxXXTXtti 

180 CALL CLEAR :: CALL SCREEN(11) 

185 DISPLAY AT(2,5):"SPRITE COLOR GRAPHICS" 

190 CALL CHAR(96, "000F 1F3F7171FFFFFFF371783C1F0F0300F0F8FC8EBEFFFFFFCF8E1ESCF8F0 
co") 

200 CALL CHAR(100, "3F70E0C080020000000000000000C0F 0F C0E0703011000000000000000000 
30F") 

210 CALL CHAR(108, "3F70E0C080040000000000000000C0F 0FC0E0703012000000000000000000 
30F") 

220 CALL CHAR(112, "000000008E£8£4040404884030000000C0000000071710202021221C000000 
030") 

230 CALL CHAR(116, "3F70E0C080080000000000000000C0F 0FC0E0703014000000000000000000 
30F") 

240 CALL CHAR(124, "0000000E0001010301040B0483E0300000000070008080C08020D020C1070 
G") 

250 CALL CHAR(132, "0000000E0001010301040B0480E3300000000070008080C08020D02001C70 
C") 

260 CALL COLOR(12,2,2) 

270 CALL HCHAR(11,15,120,4):: CALL HCHAR(12,15,120,4):: CALL HCHAR(13,15,120,4): 
» CALL HCHAR(14, 15, 120,4) 

280 CALL MAGNIFY (4) 

290 CALL SPRITE(£1,32,1,81,255,£2,32,1,81,255,£3,32,1,81,255,£4,32,1,81,255) 

300 CALL SPRITE(£5,124,7,81,113) 

310 CALL SPRITE(£6,108,6,81,113) 

320 CALL SPRITE(£7,112,16,81,113) 

330 CALL SPRITE(£8,96,10,81,113) 

340 FOR X=1 TO 4: :: DISPLAY AT(24, 1) BEEP: "PRESS ENTER";:: ACCEPT AT(24,13)SIZE(1 
):A$ 1: CALL MOTION(£X,-2,0):: NEXT X 

350 FOR X=1 TO 1000 :=: NEXT X :: CALL DELSPRITE(£1,£2,£3,£4) 

360 DISPLAY AT(24,1):" "5 


TI EXTENDED BASIC 


410 CALL PATTERN(£6,108):: D=20 : 
420 CALL PATTERN(£5, 124):: D=10 :: GOSUB 430 :: GOTO 370 
430 FOR TD=1 TO D :: NEXT TD :: RETURN 


370 CALL PATTERN(£6,100):: D=70 :: GOSUB 430 
380 CALL PATTERN(£6,108):: D=20 :: GOSUB 430 
390 CALL PATTERN(£5,132):: D=10 :: GOSUB 430 
400 CALL PRRERNI SS 2457-11 D=70 :: GOSUB 430 

: GOSUB 430 


180 CALL CLEAR :: GAME=0 

190 CALL SCREEN(4) 

200 CALL CHAR(120, "FF80808080808080FF00000000000000808080808080808000" ) 

210 SOL1$="0101010707070707C4C4C4F4F4F4FCF40707030303030700E4E4646464647400" :: 
CALL CHAR(128,S0L1$,1365,SOL1$) 

220 CALL CHAR(140, "0001010DO0D6F 6F7F008080BOBOF 6F 6FE7F7F7F7F 3F 1FO000FEFEFEFEFCF8" 
):: CALL COLOR(12,2,12,13,16,2,14,7,16) 

230 DISPLAY AT(10,11):"TABLUT" :: DISPLAY AT(12,7):"BY J. MULLIGAN" :: FOR Z=1T 
O 15 :: CALL SOUND(-10,110*Z,0):: NEXT Z 

240 REM #*#* INITIALIZE *** 

250 DIM TB(9,9) 

260 KING=0 :: KC=5 :: KR=5 :: PN=1 :: F6=0 

270 GOSUB 310 :: CALL CLEAR :: CALL SCREEN(8) 

280 GOSUB 420 

290 GOSUB 510 :: GOSUB 810 :: GOSUB 870 :: GOSUB 1010 

300 IF KING=1 THEN GOTO 1070 ELSE IF KING=2 THEN GOTO 1090 ELSE GOTO 290 

310 REM ** SET UP BOARD ** 

320 RESTORE 330 :: FOR R=1 T0 9 :: FOR G=1 TO 9 :: READ TBCR,C):: NEXT C:: NEXT 


R :: RETURN 

330 DATA 0,0,0,3,3,3,0,0,0 

340 DATA 0,0,0,0,3,0,0,0,0 

350 DATA 0,0,0,0,2,0,0,0,0 MOOMBE TTI TTT III] 
360 DATA 3,0,0,0,2,0,0,0,3 110 ‘* TABLUT ? 
370 DATA 3,3,2,2,1,2,2,3,3 120 ‘# e 
350 DATA 30,0,0,2,00,0,3 130 !#* TI EXTENDED BASIC + 
390 DATA 0,0,0,0,2,0,0,0,0 140.52 - 
400 DATA 0,0,0,0,3,0,0,0,0 150 ‘* Ò 
410 DATA 0,0,0,3,3,3,0,0,0 160 ‘%.vinloaded from su.ti9diuo.it* 
420 REM #*# PRINT BOARD *#* 170 EEE TITTI 


430 DISPLAY AT(1,9):-"A BC DEFGHI" 

440 RESTORE 470 :: FOR R=2 TO 19 :: READ A$ :: FOR C=i TO 18 :: CALL HCHARC(R,C+1 
0, ASC(SEG$(A$,C,1))+55):: NEXT C 

450 IF INT(R/2)=R/2 THEN CALL HCHAR(R,30,INT(R/2)+48) 

460 NEXT R :: RETURN 

470 DATA ABABABIJIJIJABABAB, CDCDCDKLKLKLCDCDCD, ABABABABIJABABABAB, COCDCDCDKLCDCD 
CDCD, ABABABABGRABABABAB 

480 DATA CDCDCDCDSTCDCDCDCD, IJABABABGRABABABIJ, KLCDCDCDSTCDCDCDKL, IJIJORORUVOROR 
IJIJ, KLKLSTSTWXSTSTKLKL 

490 DATA IJABABABGRABABABIJ, KLCDCDCDSTCDCDCDKL, ABABABABORABABABAB, CDOCDCDCDSTCDCD 
CDCD, ABABABABIJABABABAB, COCDCDCDKLCDCDCDCD 

500 DATA ABABABIJIJIJABABAB, COCDCDKLKLKLCDCDCD 

510 REM ** PLAYER INPUT #44 

520 PN=ABS(PN-1) 

530 IF PN=1 THEN GOTO 600 ELSE GOSUB 1160 

540 DISPLAY AT(5,1)SIZE(4):"RED" :: DISPLAY AT(6,1)SIZE(5): "MOVES" :: DISPLAY AT 
(7, 1) SIZE (8) : "FROM: _" 

550 GOSUB 1130 :: CALL HCHAR(7,8,K1):: CALL HCHAR(7,10,95):: GOSUB 1140 :: CALL 
HCHAR (7, 10,K2):: F2=K1-64 1: F1=K2-48 

560 IF PN=0 AND(TB(F1,F2)<>1 AND TB(F1,F2)<>2)THEN GOTO 670 

570 DISPLAY AT(8,1)SIZE(8):"T0: _" 

590 GOSUB 1130 :: CALL HCHAR(8,8,K1):: CALL HCHAR(8,10,95):: GOSUB 1140 :: CALL 
HCHAR(8,10,K2):: T2=K1-64 1: T1=K2-48 

590 GOTO 460 

600 GOSUB 1160 

610 DISPLAY AT(10,1)SIZE(5): "WHITE" :: DISPLAY AT(11,1)SIZE(5): "MOVES" :: DISPLA 
Y AT(12, 1) SIZE(8) 1 "FROM: _ " 

620 GOSUB 1130 :: CALL HCHAR(12,8,K1):: CALL HCHAR(12,10,95):: GOSUB 1140 :: CAL 
L HCHAR(12,10,K2):: F2=K1-64 :: F1=K2-48 

630 IF PN=1 AND TB(F1,F2)<>3 THEN GOTO 670 

640 DISPLAY AT(13, )SIZE(8):"TO: _" 

650 GOSUB 1130 :: CALL HCHAR(13,8,K1):: CALL HCHAR(13,10,95):: GOSUB 1140 :: CAL 
L HCHAR(13,10,K2)3: T2=K1-64 :: T1=K2-48 

560 IF Fi=T1 OR F2=T2 THEN GOTO 690 

670 DISPLAY AT(21,3):"ILLEGAL MOVE, TRY AGAIN." :: CALL SOUND(50,110,0,220,0,330 


,0) 


680 FOR DELAY=1 TO 260 :: NEXT DELAY :: CALL HCHAR(21,1,32,32):: GOTO 530 


690 IF T1<>F1 AND T2<>F2 THEN GOTO 670 

700 IF Ti=F1 THEN GOTO 740 

710 FOR CM=F1+SGN(T1-F1)TO Ti STEP SGN(T1-F1):3 IF TB(CM,F2)>0 THEN GOTO 670 

720 IF (CM=5 AND F2=5)AND(TB(F1,F2)<>1 OR PN=1)THEN GOTO 670 

730 NEXT CM :: GOTO 790 

780 IF F2=T2 THEN GOTO 670 

750 FOR CM=F2+SGN(T2-F2)TO T2 STEP SGN(T2-F2):: IF TB(F1,CM)>0 THEN GOTO 670 

7560 IF (CM=5 AND F1=5)AND(TB(F1,F2)<>1 OR PN=1)THEN GOTO 670 

770 IF TB(F1,F2)=1 THEN KCT=KC s: KRT=KR s: KCST1 :3 KR=T2 :: GOSUB 1010 s: IF K 
ING=2 THEN KING=0 :: KC=KCT :: KR=KRT :: GOTO 670 


780 NEXT CM 
790 IF TB(F1,F2)=1 THEN KCT=KC :3: KRT=KR 13 KC=T1 s: KR=T2 :: GOSUB 1010 :: IF K 


ING=2 THEN KING=0 1: KC=KCT :: KR=KRT :: GOTO 670 


800 RETURN 
810 CALL HCHAR(F1*2,F2#2+9,120):: CALL HCHAR(F1*2,F2*2+10,121):: CALL HCHAR(F1*2 


+1,F2#*2+9,122):: CALL HCHAR(F1#*2+1,F2*2+10,123) 

820 ZZ=TB(F1,F2):: IF ZZ=1 THEN CH=140 ELSE IF Z7=2 THEN CH=136 ELSE IF 277=5 THE 

N CH=128 

830 CALL HCHAR(T1*2,T2*2+9,CH):: CALL HCHAR(T1*2, T2*2+10,CH+1):: CALL HCHAR(T1*2 

+1,T2#2+9,CH+2):: CALL HCHAR(T1*2+1,T2*2+10,CH+3) 

840 IF TB(F1,F2)=1 THEN KC=T1 :: KR=T2 

850 TB(T1,T2)=TB(F1,F2):: TB(F1,F2)=0 :: RETURN 

860 REM *** CHECK CAPTURES *** 

870 IF TB(T1,T2)=1 THEN 980 

880 IF PN=1 THEN MP=3 :: CP=2 ELSE MP=2 :: CP=3 

890 REM #*** WEST ##* 

900 IF Ti>1 THEN IF TB(T1-1,T2)=CP AND TB(T1-2,T2)=MP THEN TB(T1-1,T2)=0 :: X=T1 

-—1 1: Y=T2 :: GOSUB 1150 

910 REM x*#+* EAST x*** 

920 IF T1<8 THEN IF TB(T1+1,T2)=CP AND TB(T1+2,T2)=MP THEN TB(T1+1,T2)=0 :: X=T1 

+1 :: Y=T2 :: GOSUB 1150 

930 REM *** NORTH *** 

940 IF T2>1 THEN IF TB(T1,T2-1)=CP AND TB(T1,T2-2)=MP THEN TB(T1,T2-1)=0 :: X=T1 
sr: Y=T2-1 :: GOSUB 1150 

950 REM *#** SOUTH *** 

960 IF T2<8 THEN IF TB(T1,T2+1)=CP AND TB(T1,T2+2)=MP THEN TB(T1,T2+1)=0 :: X=T1 
33 Y=T2+1 :: GOSUB 1150 

970 RETURN 

980 IF T1=1 OR T1=9 OR T2=1 OR T2=9 THEN KING=1 

990 RETURN 

1000 REM *#** KING CAPTURED? ##* 

1010 IF NOT(TB(KC-1,KR)=3 OR KC=6 AND KR=5) THEN RETURN 

1020 IF NOT(TB(KC+1,KR)=3 OR KC=4 AND KR=5)THEN RETURN 

1030 IF NOT(TB(KC,KR-1)=3 OR KC=5 AND KR=6) THEN RETURN 

1040 IF NOT(TB(KC,KR+1)=3 OR KC=5 AND KR=4)THEN RETURN 

1050 KING=2 :: RETURN 

1060 REM *#** WINNING #*** 

1070 DISPLAY AT(21,1): "THE KING HAS ARRIVED AT THE": "EDGE OF THE BOARD. RED WINS 
1080 GOSUB 1160 :: FOR Z=1 TO 12 :: CALL SOUND(-10,110*7,0):: NEXT Z_:: GOTO 110 

(o) 

1090 DISPLAY AT(21,1): "THE KING HAS BEEN CAPTURED. ": "WHITE WINS." :: GOTO 1080 
1100 DISPLAY AT(23,1): "ANOTHER GAME? (Y/N)" :: ACCEPT AT(23,24)VALIDATE ("YN")SIZ 

E (1) BEEP: ANS$ 

1110 IF ANS$="N" THEN CALL CLEAR :: GOTO 1170 

1120 PN=1 :: GAME=99 :: CALL CLEAR :: GOTO 260 

1130 CALL KEY(0,K1,S)s: IF S<>1 OR K1<64 OR K1>73 THEN GOTO 1130 ELSE CALL SOUND 
(10,880,0):: RETURN 

1140 CALL KEY(0,K2,S):: IF S<>1 OR K2<49 OR K2>57 THEN GOTO 1140 ELSE CALL SOUND 
(10,880,0):: RETURN 

1150 CALL HCHAR(X#2,Y#2+9,120):: CALL HCHAR(X*2,Y*2+10,121):: CALL HCHAR(X*2+1,Y 

#2+9,122):: CALL HCHAR(X*2+1,Y#2+10,123):: RETURN 

1160 FOR X=1 TO 10 :: CALL VCHAR(1,X,32,20):: NEXT X :: RETURN 

1170 END 


10 CALL CLEAR 

20 PRINT "###844#44444444444#44444444"::" © ISTRUZIONI PER L'USO DEL = PROGRANN 
A SUCCESSIVO "s:"ERE#EERRE#EEE544444444444H8! 

30 FOR I=1 TO 400 

40 NEXT I 

50 CALL CLEAR 

60 PRINT "####44844#854444444444444444"::" CALCOLO NATRICIALE"::"#444#4444H 
###44444444444 1111111 

70 PRINT "££ FRANCONPUTER CLUB ££ " 

80 FOR X=1 TO 1000 

90 NEIT I 

100 PRINT ::" ISTRUZIONE = FORNATO"::::" DINENSIONA — noae(nia)" 

110 PRINT 11" DEFINISCI —— nose=":: 

120 PRINT " VISUALIZZA nose?":: 

130 PRINT * CANCELLA ———noae=o’ 

131 PRINT 11° {continua)" 

132 FOR G=1 TO 7000 

133 NEXT 6 

140 PRINT :" PRODOTTO nosesnosetnose”:: 

150 PRINT "SOMMA nose=noae+nose” 

160 PRINT ::" PRODOTTO CON SCALARE nose=s#nosesc':: 

170 PRINT " INVERSA nose=nosei ":: 

180 PRINT " TRASPOSTA_ noaesnoset":: 

190 PRINT "DETERMINANTE —_DET(noae)" 

210 PRINT ::" come nose di aatrici si puo’ usare una qualsiasi letter 
a maiuscola” 

220 FOR P=1 TO 7000 


230 NEXT P 


100 CALL CLEAR 
102 CALL CHARCI1S, "007C101010") 


103 CALL CHARCI1I, "0010395454543810%) 


104 CALL CHARC105, "000404E404") 
106 DIN V(1000),R6(26),CL(26) 
107 V(01=27 

110 INPUT OPR$ 

112 DEF ADIA$)=ASC(A$)-64 

120 KA=0 

150 GOSUB 10000 

135 IF L$="" THEN 110 

136 IF L$c)"®" THEN 140 

137 PRINT 1010-V(0) 

158 GOTO 110 

140 GOSUB 11000 

150 D$=L$ 

160 GOSUB 10000 

165 IF (D$KL$)="DE" THEN 12000 
170 IF L$="=" THEN 500 

190 IF L$="{" THEN 1000 

185 IF L$="?" THEN 2000 


190 PRINT "ERRORE" 
191 CALL SOUND(100,300,4) 

195 6070 110 

500 GOSUB 10000 

510 IF L$="* THEN 3000 

515 IF L$="o" THEN 9500 

517 IF L$="s" THEN 13000 

520 GOSUB 11000 

525 01$=L$ 

530 GOSUB 10000 

540 IF L$="t" THEN 4000 

550 IF L$="i" THEN 5000 

560 IF L$="" THEN 9000 

580 IF L$="+" THEN 6000 

600 IF L$="#" THEN 8000 ELSE 190 
1000 L1s="* 

1010 GOSUB 10000 

1030 IF L$="\" THEN 1040 

1031 IF (ASC(L$))47)#(ASC{LS) C58}THEN 1035 ELSE 190 


1035 LIS=LISKL$ 
1036 G0TO 1010 

1040 L28="* 

1050 GOSUB 10000 

1055 IF L$=")" THEN 1085 

1056 IF (ASCIL$))47}#(ASC(L8)<S01THEN 1060 ELSE 190 
1060 L28=L288L$ 

1065 GOTO 1050 

1085 GOSUB 10000 

1090 IF L$="" THEN 1100 ELSE 190 

1100 A=AD(D$) 

1101 IF VCA)=0 THEN 1110 

1102 PRINT "NATRICE GIA” DINENSIONATA" 
1103 CALL SOUND(100,300,4) 

1104 GOTO 110 

1110 Y(A)=V(0) 

1120 RGIAI=VAL(L1$) 

1130 CLIA)=VAL (28) 

1140 IF VIA)+RGCA)SCL(A)C1000 THEN 1170 
1150 PRINT "NENORIA ESAURITA" 

1153 VIAI=0 

1155 CALL SOUND(100,300,4) 

1160 GOTO 110 

1170 V(OI=N(0)#RG(A)#CL (A) 

1180 6070 110 

2000 A=AD(D$) 

2010 FOR I=1 TO RG(A) 

2020 FOR d=1 TO CLIA) 

2030 PRINT D$E"("8STRE(I)&", "8STRE(I)&")="5V(VIA)+CL(A)#(I-1)4I-1) 
2035 CALL KEY(0,K,S) 

2036 IF S=0 THEN 2035 

2040 NEIT J 

2050 NENTI 

2060 GOTO 110 

3000 A=AD(D8) 

3010 FOR I=1 TO RGCA) 

3015 FOR J=1 TO CLIA) 

3020 PRINT D$8"(’STRS(I)&*, "8STR6(3)8")="; 
3030 INPUT * *:VIVIA)+(I-1)8CL(A)44-1) 
3040 NEIT 3 

3050 NENTI 

3060 GOTO 110 

4000 GOSUB 10000 

4010 IF L$="" THEN 4020 ELSE 190 

4020 A=AD(0$) 

4030 B=AD(018) 

4040 IF VIB)=0 THEN 9500 

4050 IF VIA)=0 THEN 4100 

4060 IF (CLIA)=RG(B)}#(CL(BI=RG(A))THEN 4150 ELSE 9040 
4100 CL(A)=R6(8) 

4110 RGCA)=CL(B) 

4120 VIAI=V(0) 

4130 VIO)=W(014RGCA)#CL (A) 

4150 FOR I=1 TO R6(B) 

4160 FOR 3=1 TO CL(B) 

4ITO VIVCON+03-1)#CLUA)+1=1)=V(V(B)+(1-1)4CL(B} 4-1) 
4180 NEIT 3 

4190 NENTI 

4200 FOR 1=9 TO RGCAISCL(A)-1 

4210 VIVCAD+T)=V(V(0)41) 

4220 NEIT I 

4230 GOT0 110 


5000 GOSUB 10000 
5010 IF L$="" THEM 5020 ELSE 190 

5020 A=AD(D8) 

5030 B=AD(018) 

5040 IF RG(B)=CL(B) THEN 5080 

5050 PRINT "MATRICE NON QUADRATA 
5060 CALL SOUNDC100, 300,4) 

5070 GOTO 110 

5080 IF V(A)=0 THEN 5100 

5090 IF (RGCA)=RG(B))#(CL(A)=CL(B))THEN 5140 ELSE 9040 
5100 VIA)=V(01 

5110 RG(A)=R6(B) 

5120 CL(A)=CL(B) 

5130 Y(0)=V(0)4R61A)2 

5140 IM=1 

5150 FOR I=0 TO R6(B)*2-1 

5160 VIVIOI#1)=V(V(BI41) 

5170 NENTI 

5180 FOR I=0 TO R6(A)-1 

5190 FOR J=0 TO CLIA)-1 

5200 VIVIAI+T*CL(A)+3)=1-SGN(ABS(1-3)) 
5210 NENT J 

5220 NENTI 

5300 REN. #INV-DETE 

5310 N5CL(B) 

5313 8621 

5316 DET=1 

5320 FOR K=0 TO N-1 

5326 P=K 

5330 IF VIVIONAKNKI (YO THEN 5500 
5340 P=PH1 

5350 IF PMP-1 THEN 5900 

5360 IF VIVCON+PAMHK)=0 THEN 5340 
5370 56=-56 

5380 FOR I=0 TO N-1 

5390 VP=V(VIO)4PHIEI) 

5400 VIVIOI4PHIHT)=VIVION HT) 

5410 VIVIO)HKEN+T)=VP 

5420 NEIT I 

5430 IF INV=0 THEN 5500 

5435 FOR I=0 TO N-I 

5440 VPSVIVIA)4PAI+1) 

5445 VEVIA)PANHI)=WIVIA)HKENET) 

5450 VIVIA)+CHN41)=VP 

5455 NEXT I 

5500 DET=DETEVIV(O)+K#N#) 

5600 IF INV=0 THEN 5638 

5620 FOR J=N-1 TO 0 STEP -1 

5630. VEVCA)HKHHET)=VIVIA) HKCENET) /VCV (0) #IHNAK) 
5635 NEXT ] 

5639 FOR J=N-1 TO 0 STEP -I 

SH4O VEVCONHKHHT)=WC4 (0) HCENAT) /VEVCODHCENAKI 
5645 NEIT 3 

5650 FOR 1=0 TO N-1 

5660 IF IX THEN 5710 

5665 IF INV=0 THEN 5692 

5680 FOR J=4-1 TO 0 STEP -1 

5690 VEVCADETENAJ)SVIVIAN+TEN#I) V(VCO)+ TH) HVCVCADACHNAT) 
5691 NEIT 3 

5692 FOR J=N-1 TO K STEP -I 

5700 VIVCOD+TAH3)VCVION+I6MHT)VCVCOI+ TANA) VENTO) HKANT) 
5705 NEXT J 

5710 NEIT I 


5715 NEIT K 
5720 PRINT "DET("8CHRS (B+64)&")=";DET#S6 
5730 G0T0 110 

5900 PRINT "MATRICE NON INVERTIBILE”:"DET("&CHR$(6448)4")=0" 
5910 G0TO 110 

5000 GOSUB 10000 

5010 BOSUB 11000 

5020 028=L$ 

5030 GOSUB 10000 

6040 IF L$="" THEN 6050 ELSE 190 

5050 A=AD(D8) 

5060 B=AD(01$) 

5070 C=AD(028) 

4080 IF (R6(B)=RGIC))#(CL(B)=CL(C))THEN 4090 ELSE 9040 
5090 IF VIA)=0 THEN 6200 

5100 IF (RGCA)=RG(B))#(CL(A)=CL(B))THEN 6250 ELSE 9040 
5200 VIAI=V(0) 

6210 RGIA)=RG(B) 

6220 CLIA)=CL (B) 

5230 V(01=V(014RG(A)8CL (A) 

6250 FOR I=0 TO CLIADARGIA)-1 

6270 VVCAN+I)=V(V(BI+1)4W(W(C)+T) 

5290 NEIT I 

6300 GOTO 110 

9000 GOSUB 10000 

8010 GOSUB 11000 

8020 02818 

9030 GOSUB 10000 

9040 IF L$="" THEN 8050 ELSE 190 

8050 A=AD(D8) 

9060 B=AD(018) 

9070 C=AD(028) 

8080 IF CLIBICORGLCI THEN 9040 

8090 IF VIA)=0 THEN 8200 

8100 IF (RGCA)=RG(B))#(CL(A}=CL(C))THEN 8240 ELSE 9040 
8200 VIA)=V(0) 

8210 RECA)=R6(B) 

9220 CLIAI=CLIC) 

8230 V(0)=V(0)+RG(A)#CL(A) 

9240 FOR I=1 TO R6(B) 

8250 FOR J=1 TO CLIC) 

8255 EL=0 

8260 FOR K=1 TO CL(B) 

8270 EL=EL+W(V(BI+(1-1)#CL(B)4K-1)8V(VIC)+(K-1)8CL(C)41-1) 
8280 NEIT K 

9290 VIVIO)H(I-1)#CL(A}+1-1)=EL 

8300 NEIT J 

8310 NENTI 

9320 IF VIO)=VCAYTHEN 110 

9330 FOR 1=0 TO RGIAI#CL(A)-I 

9340 VEVIAIHT)=V(V(0)+41) 

8350 NENTI 

9360 GOTO 110 

9000 A=AD(D8) 

9010 B=AD(018) 

9015 IF V(B)=0 THEN 9500 

9020 IF VIAI=0 THEN 9060 

9030 IF_(RGCA)=RG(B))#(CL(A)=CL(B)) THEN 9100 
9040 PRINT "DINENSIONI INCOMPATIBILI" 

9045 CALL SOUND(100, 300,4) 

9050 GOTO 110 

9060 RECA)=RG(B) 

9070 CLIA)=CL(B) 

9080 VIAI=4(0) 


9090 VI0I=V(01+RG(A)ECLIA) 
9100 FOR I=0 TO RECAI#CL(A)-1 
9110 VEVIADETI=V(V(BI+1) 
9120 NENTI 

9130 GOTO 110 

9500 A=AD(D8) 

9510 B=RG(A)4CL (A) 

9520 FOR ISA41 TO 26 

9525 IF V(I)=0 THEN 9540 
9530 VITI=VII)-B 

9540 NENTI 

9550 FOR I=VIANTO V(0)-B 
9560 VIII=V(1+8) 

9570 NEXT I 

9580 V(0I=4(0)-B 

9590 VIA)=0 

9591 RECAI=0 

9592 CLIA)=0 

9600 GOTO 110 

10000 KA=KA+1 

10010 L$=SEGS(OPR$,KA, 1) 
10020 RETURN 

11000 IF (ASCIL$))64)#(ASCILS)<9L)THEN 11020 
11010 PRINT "NOME INESATTO" 
11011 CALL SOUNDI100,300,4) 
11015 GOT0 110 

11020 RETURN 

12000 GOSUB 10000 

12010 IF LSCO*T" THEN 190 
12020 GOSUB 10000 

12030 IF L$C)"(* TREN 190 
12040 GOSUB 10000 

12050 GOSUB 11000 

12060 B=AD(L8) 

12070 GOSUB 10000 

12080 IF L$C)*)" THEN 190 
12090 GOSUB 10000 

12100 IF L$SC)"" THEN 190 
12120 INV=0 

12130 IF_R6(B)<OCL(B) THEN 5050 
12140 FOR I=0 TO R6(B)#2-1 
12150 VIWIOI+1)=V(V(BI41) 
12160 NEIT I 

12170 GOTO 5300 

13000 GOSUB 10000 

13010 IF L6CO"#" THEN 190 
13020 GOSUB 10000 

13030 GOSUB 11000 

13040 018=L8 

13050 GOSUB 10000 

13060 IF LSC)** THEN 190 
13080 A=AD(D$) 

13090 B=AD(018) 

13100 IF V(A)=0 THEN 13204 
13110 IF_(RGCA)=RG(B)}#(CLIA)=CL(B))THEN 13235 ELSE 9040 
13205 VIA)SV(O) 

13210 RECA)=R6(8) 

13220 CLA)=CL(B) 

13230 V(0)=V(0)+RG(AVECL(A) 
13235. INPUT *s=":SC 

13240 FOR I=0 TO RGCA)SCLIA)-1 
13250 ViVIAI+I)=VIV(B)+I)45C 
13260 NEXT I 

13270 GOT0 110 


200 
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230 
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320 
330 
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360 
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380 
390 
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410 
420 
430 
440 
450 
460 
470 
480 
490 
3500 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
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CALL 
CALL 
CALL 
CALL 
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CALL 
CALL 
CALL 
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87 CARATTERI 4 PAGINE 


FRANCOMPUTER CLUB VICENZA 


CHAR (129, "FFFFFFFFFFFFFFFF") 
CHAR (130, "FFB18181818181FF") 
CHAR (131, "FF00") 

CHAR (132, "00000000000000FF ") 
CHAR (133, "8080808080808080") 
CHAR (134, "0101010101010101") 
CHAR (135, "8181818181818181") 
CHAR (136, "FF000000000000FF ") 
CHAR (137, "9090909090909090" ) 
CHAR (152, "181818FFFF 181818") 
CHAR (139, "FOFOFOFOFOFOFOFO”" ) 
CHAR (140, "OFOFOFOFOFOFOFOF" ) 
CHAR (141, "FFFFFFFFOO") 

CHAR (142, "00000000FFFFFFFF") 
CHAR (143, "000000FFFF") 

CHAR (144, "1818181818181818") 
CHAR (145, "8142241818244281") 
CHAR (146, "0102040810204080" ) 
CHAR (147, "8040201008040201") 
CHAR (148, "80808080808080FF" ) 
CHAR (149, "FFO10I0101010101") 
CHAR (150, "FF80808080808080") 
CHAR (151, "O1010101010101FF") 
CHAR (138, "0909090909090909" ) 
CHAR (153, "FFOOO00FF00") 

CHAR (154, "00000000FF0000FF " ) 
CHAR (155, "BOCOEOFOFS8FCFEFF") 
CHAR (157, "0103070F 1F3F7FFF") 
CHAR (156, "FFFEFCF8FO0EO0CO80") 
CHAR (158, "FF7F3F1F0F070301") 
CHAR (159, "3333CCCC3333CCCC") 
CHAR (33, "FFC381818181C3FF") 

CHAR (35, "FFFFC3C3C3C3FFFF") 

CHAR (64, "3C7EFFFFFFFF7E3C") 

CHAR (37, "FOFOFOFO") 

CHAR (94, "OFOFOFOF") 

CHAR (38, "00000000F0FOFOF0") 

CHAR (42, "000000000F0FOFOF" ) 

CHAR (45, "FOFOFOFOOFOFOFOF") 


510 
320 
3350 
540 
5350 
360 
570 
580 
590 
600 
610 
620 
630 
640 
650 


670 
680 
690 
700 
710 
720 
730 
740 
750 
760 


780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
9350 
940 
950 
960 
970 
980 
990 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


CALL 
CALL 
CALL 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


CHAR (58, "OFOFOFOFFOFOFOFO" ) 

CHAR (60, "OOFFOOFFOOFFOOFF ") 

CHAR (62, "ARAAAAARARAARAARA" ) 

CHAR (47, "000000000F 080808") 

CHAR (59, "0B0B080F ") 

CHAR (36, "101010F0") 

CHAR (46, "00000000F 0101010") 

CHAR (43, "FF82848890A0C080") 

CHAR (40, "01030509112141FF") 

CHAR (41, "80C0A090888482FF ") 

CHAR (61, "FF41211109050301") 

CHAR (126, "FF81818181818181") 
CHAR (91, "FFB0B080808080FF ") 

CHAR (93, "FFO10101010101FF") 

CHAR (95, "81818181818181FF") 

CHAR (63, "030C302040408080" ) 

CHAR (39, "8080404020300C03" ) 

CHAR (123, "C0300C0402020101") 
CHAR (125, "01010202040C30C0") 
CHAR (124, "C3C300000000C3C3") 
CHAR (92, "FF9999FFFF9999FF ") 

CHAR (96, "2424FF2424FF 2424") 

CHAR (97, "FF83858991A1C1FF") 

CHAR (98, "FFC1A191898583FF ") 

CHAR (99, "FFC3AS9999ASC3FF " ) 

CHAR (100, "1818242442428181") 
CHAR (101, "8181424224241818") 
CHAR (102, "C0300C03030C30C0") 
CHAR (103, "O30C30C0C0300C03") 
CHAR (104, "FF81BDASASBD81FF") 
CHAR (105, "2424242424242424") 
CHAR (106, "0000FF0000FF 0000") 
CHAR (107, "FFFFFFFFFOFOFOFO") 
CHAR (108, "FOFOFOFOFFFFFFFF") 
CHAR (109, "FFE1E1E1E1E1E1FF") 
CHAR (110, "FF878787878787FF") 
CHAR (111, "FFFFFFFF818181FF") 
CHAR (112, "FF818181FFFFFFFF") 
CHAR (113, "OFOFOFOFFFFFFFFF") 
CHAR (114, "FFFFFFFFÒFOFOFOF") 
CHAR (115, "FFFFFFFF18181818") 
CHAR (116, "18181818FFFFFFFF") 
CHAR (117, "FOFOFOFFFFFOFOFO") 
CHAR (118, "OFOFOFFFFFOFOFOF ") 
CHAR (119, "818181FF") 

CHAR (120, "00000000FF818181") 
CHAR (121, "F0101010101010F0") 
CHAR (122, "0F0808080808080F ") 
CLEAR 


1000 PRINT "\ GRAFICA DIRETTA DA"::"\ TASTIERA":::: "MENU ":::"i SIMBOLI GAR 

FICI E ISTRUZ&"::"2 ESECUZIONE” 

1010 PRINT ::"3 IN MEMORIA SUL REG&"::"4 RICHIAMO DAL REG&"::"5 DISPLAY GRAFI 
CO"::"6 CORREZIONE GRAFICO":: 

1020 CALL KEY(0,K,S) 

1030 IF S=0 THEN 1020 

1040 IF (K£49)+(K>54)THEN 1020 

1050 ON (K-48)GOTO 1060, 1430, 1900, 2020, 1820, 2190 

1060 CALL CLEAR 

1070 PRINT "\ HAI 87 SIMBOLI GRAFICI CHE":"\ PUOI RICAVARE DIRETTAMENTE":"\ DALL 
A TASTIERA ":"\" 

1080 PRINT "\ 11 CON FCTN E 41 CON SHIFT":"\ 31 CON CTRL E 4 NORMALI":"\ PIU I N 
UMERI E 26 LETTERE":"\ MAIUSCOLE" 

1090 PRINT 1::"! NON ACCETTA LA VIRGOLA !":::: "PREMI UN TASTO" 

1100 CALL KEY(0,K,8) 

1110 IF S=0 THEN 1100 

1120 PRINT s::"\CON CTRL\ PREMI UN TASTO" 

1130 FOR X=i T0 9 

1140 PRINT :CHR$(64+}0) 1" "iCHR$ (12840) 1" "sCHR$(73+0) 5" "sCHR$(137+X0)5"  "sCH 
R$ (82+X) 3" "3CHR$(146+X) 

1150 NEXT X 

1160 CALL HCHAR(23,15,127,4) 

1170 PRINT :"DUE PUNTI "5CHR$(156);" UGUALE "sCHR$(157)::"8 "iCHR$(158);" 9" 
sCHR${159);" PUNTO "5CHR$(155) 

1180 CALL KEY(0,K,5) 

1190 IF S=0 THEN 1180 

1200 PRINT :::"\CON SHIFT\" 

1210 PRINT :"! PUNTO ESCL&","@ SEGNO AT"::"% PER CENTO", "* ELEVATO"::"& E COMM&" 
+"* PER":1"- MENO", ": DUE PUNTI" 

220 PRINT ::"< MINORE","> MAGGIORE"::") PARENT& CH&","$ DOLLARO"::"+ PIU", "{ PA 
REN& AP&"::"£ * LIBBRA":: 

1230 PRINT "PREMI UN TASTO” 

1240 CALL KEY(0,K,5) 

1250 IF S=0 THEN 1240 

1260 PRINT ::"\ SHIFT MINUSCOLE \" 

1270 FOR X=1 T0 9 

1280 PRINT :CHR$(64+X)p" "iCHR$(96+\0)"  "sCHR$(73+)0)p" ":CHR&(105+)5"  "iCHR 
$(82+X)5" ":CHR$(114+%) 

1290 NEXT X 

1300 CALL HCHAR(23,15,127,5) 

1310 PRINT :"PREMI UN TASTO" 

320 CALL KEY(0,K,5) 

1330 IF S=0 THEN 1320 

1340 PRINT s::"\CON FCTN\"::"* TILDE","I PAR&QU&AP&"::"] PAR&GU&CH&","_ TRATTO": 
1"? PUNTO DOM&", 

1350 PRINT "" APOSTROFO"::"! SEPARATORE", "0 PAR&GRA&AP&"::"> PAR&GRA&CH&","\ BAR 
RA OBL&"::"" ACCENTO" 

1360 PRINT ::::"PREMI UN TASTO" 

1370 CALL KEY(0,K,8) 

1590 IF S=0 THEN 1370 

1390 PRINT 11::"\TASTI NORMALI\"::::"= UGUALE"::"/ DIVISO"::"5 PUNTO VIRG&"::". 

PUNTO "::::"PREMI UN TASTO" 

1400 CALL KEY(0,K,5) 

1410 IF S=0 THEN 1400 

1420 GOTO 999 

1430 CALL CLEAR 

1440 PRINT "PRIMO TASTO PER COMINCIARE":"E PER ESEMPIO PUO ESSERE 1":"POI PUOI I 
NIZIARE GRAFICA":: 

1450 PRINT "NEL MODO CORREZIONE": "PER CANCELLARE 0 PER FARE": "UNO SPAZIO LIBERO 

DEVI": "SPINGERE FCTNDEL":: 

1460 PRINT :"PER USCIRE DAL MODO CORRE"':"ZIONE, CURSORE TUTTO A*:"SINISTRA"::"A 

TTENZIONE PER OGNI NUME" 

1470 PRINT "HAI A DISPOSIZIONE 1 RIGA *:"CON 26 CASELLE PER 23 RIGHE"::"NASSINO 

4 PAGINE": 

1480 PRINT "NODO CORREZIONE 29 CASELLE":: 


1490 IF Y$CO"® THEN 1510 
1500 INPUT "NOME GRAFICO ":Y$ 
1510 PRINT »"NOME "5Y6::*NUMERO PAGINA":: 
1520 INPUT *\":/ 

1530 IF 7)4 THEN 1510 

1540 PRINT 1:"12345670901234567090123456":: 
1550 INPUT "i":A6(Z) 

1560 INPUT "1":B6(2) 

1570 INPUT "[":C6(7) 

1500 INPUT "i":D6{Z) 

1590 INPUT "i":E6(7) 

1600 INPUT "I":F$(Z) 

1610 INPUT "1":66(Z) 

1620 INPUT "1":H6(7) 

1530 INPUT "1":1${7) 

1640 INPUT “"1":J612) 

1650 INPUT "1":K6(7] 

1660 INPUT "1":L617) 

1670 INPUT "1":H$(Z) 

1680 INPUT "1":N6(7) 

1690 INPUT "1":06(Z) 

1700 INPUT "1":PS(2) 

4740 INPUT "1":06(Z) 

1720 INPUT "1":R6(7) 

1730 INPUT "1":56(Z) 

1740 INPUT "1":T6(2) 

1750 INPUT "1":U6{Z) 

1760 INPUT "1":V6(2) 

1770 INPUT "1":W6Z) 

1780 PRINT "FINE GRAFICO PRENI UN TASTO" 
1790 CALL KEY(0,K,5) 

1800 IF S=0 THER 1790 

1810 GOTO 990 

1820 CALL CLEAR 

1830 INPUT "NUMERO PAGINA "21 
1840 IF 7}4 THEN 1950 


1850 PRINT ::"DOPO PRENI UN TASTO"::YS:sA6(Z}:BS(Z}:C(2):DS(Z):E6(Z):F$(7):66(7 
VaH$(Z}: 1842) 33802) :K6(Z):L6(2) 

1860 PRINT NGIZISNSIZ):06(Z):PS(Z}:O6(Z):R6(Z):6(Z):T8(Z):U6(Z):V6(ZI:W807) 
1870 CALL KEY0,K,5) 

1880 IF S=0 THEN 1970 

1890 GOTO 990 

1900 CALL CLEAR 

1910 OPEN £1:"CS1", INTERNAL, OUTPUT,FIXED 192 
1920 PRINT ::" NONE GRAFICO *5Y8:: 

1930 PRINT £1:Y8,7 

1940 FOR 131 702 

1950 PRINT £L:ASC1,B6(X),C600),D6C1),ESC1,F600) 
1960 PRINT £1:6801),H6C),16(X),3$00),K6C),L6C) 
1970 PRINT £I:N80X1,N8(X),06C0),P8(0),0SC1},R600) 
1980 PRINT £1:5601),T6(X1,USCO),VSCK),WSCD) 

1990 NEXT 1 

2000 CLOSE £I 

2010 GOTO 990 

2020 CALL CLEAR 

2030 OPEN £1:*CS1", INTERNAL, INPUT FIXED 192 
2040 INPUT £1:Y8,1 

2050 PRINT s:"NOME GRAFICO *;Y6:: 

2060 FOR X=1 107 

2070 INPUT EL:A6CK),B80X),C801),D6CK),ESCKI,FS01) 
2080 INPUT E1:680X),H80X},I80X),36001,K$00),L600) 
2090. INPUT £I:H6CKI,N6CK), 0601), PS01),06C0),R601) 
2100 INPUT £I:560),T80K),USC0),V6CK,H601) 

2110 NENT X 


2120 CLOSE fi 230 CALL CLEAR 
2140 PRINT "VA BENE IL VECCHIO NOME SN": :Ybr: 
2150 INPUT O "\ "176 
2160 IF 7%$="S" THEN 2190 
2170 INPUT "NUOVO NOME ":Y$ 
2180 GOTD 990 
2190 REM «#&CORREZIONE KE 
2200 CALL CLEAR 
2210 INPUT "QUALE FAGINA Vel 


2220 PRINT 1:Y$1:A$(Z)rB$(Z):C#(7):D6&(Z) E6 (7) :F$(7):66(Z)H$(Z):I6(Z)nJ6(Z)sK$( 


TZ) 516 (7) 1M6 (7) N67) 106 (7) :P6(Z) 


22350 PRINT Q6(Z)sR$(Z) 156 (Z):T$(Z)sU$(Z)1V6(Z)sW$(Z) 


2240 X=0 


22350 CALL CHAR{128, "FFOIS18igIsigiFF") 


2260 COL=2 
2270 RIG=1 


2280 CALL HCHAR(RIG, COL, 128) 


2290 CALL KEY(0,K,5) 
2300 IF S=0 THEN 2290 


ZZ10 IF (Ka 368) # {Ex +69) #{K< 3835) #{K< +88) THEN 23590 ELSE 2320 


2520 CALL HCHAR(RIG, COL, x) 


2530 COL=COL- (K=83) *(COL>1)+({K=69)#{C0L<30) 
23540 RIG=RIG- (K=69)#{(RIG>1)+{K=96) x {(RIGC23) 


2350 IF COL=1 THEN 990 


23560 CALL GCHARIRIG,COL,X) 


2370 G0T0 2280 


23980 CALL HCHAR(RIG,COL, 127) 


2590 IF COL=? THEN 2250 
2400 CALL KEY (0,KEY,5) 
2410 IF S=0 THEN 2400 


2420 
2430 
2440 
2450 


CALL HCHAR (RIG, COL, KEY) 
CALL GCHAR(RIG,COL,X) 

IF RIG>18 THEN 2470 ELSE 2450 

ON RIG GOSUB 2490, 2530, 2570, 2610, 2650, 2690, 2730, 2770, 2810, 2850, 2890, 2930, 29 


70, 3010, 3050, 3090, 3130, 3170 


2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 


GOTO 2280 

ON RIG-18 GOSUB 3210,3250,3290, 3330, 3370 

GOTO 2280 

AD$=SEG$(A$(Z),COL-1,LEN(A$(Z))) 
AS$=SEG$(A$(Z),1,COL-3) 

A$(Z)=AS$&CHR$(X)&AD$ 

RETURN 

BS$=SEG$(B$(Z),1,COL-3) 
BD$=SEG$(B$(Z),COL-1,LEN(B$(Z))) 3000 RETURN 


B$ (7) =BS$&CHR$ (X)&BD$ 3010 NS$=5EG$(N$(Z),1,COL-3) 

RETURN 3020 ND$=SEG$(N$(Z),COL-1,LEN(N$(Z))) 
CS$=5EG$ (C$(Z),1,COL-3) 3030 N$(Z)=NS$&CHR$ (X)&ND$ 
CD$=SEG$(C$(Z),COL-1,LEN(C$(Z))) 3040 RETURN 

C$(Z7)=CS$&CHR$ (X) &CD$ 3050 O0S$=SEG$(0$(Z),1,COL-3) 

RETURN 3060 0D$=5EG$(0$(Z),COL-1,LEN(0$(Z))) 
DS$=SEG$ (D$(Z),1,COL-3) 3070 0$(Z)=0S$&CHR$(X)&OD$ 

DD$=SEG$ (D$(Z),COL-1,LEN(D$(Z))) 3080 RETURN 

D$(7)=DS$&CHR$(X)&DD$ 3090 PS$=SEG$(P$(Z),1,COL-3) 

RETURN 3100 PD$=SEG$(P$(Z),COL-1,LEN(P$(Z))) 
ES$=SEG$(E$(Z),1,COL-3) 3110 P$(Z)=PS$&CHR$(X)&PD$ 

ED$=SEG$ (E$(Z),COL-1,LEN(E$(Z))) 3120 RETURN 

E$(Z)=ES$&CHR$(X)&ED$ 3130 QS$=SEG$(0$(Z7),1,COL-3) 

RETURN 3140 QD$=SEG$(0$(Z7),COL-1,LEN(Q$(Z))) 
FS$=SEG$(F$(Z),1,COL-3) 3150 Q$(Z)=0S$&CHR$(X)&OQD$ 

FD$=SEG$ (F$(Z),COL-1,LEN(F$(Z))) 3160 RETURN 

F$(Z)=FS$&CHR$ (X)&FD$ 3170 RS$=SEG$(R$(Z),1,COL-3) 

RETURN 3180 RD$=SEG$(R$(Z),COL-1,LEN(R$(Z))) 
GS$=SEG$(G$(Z),1,COL-3) 3190 R$(Z)=RS$&CHR$(X)&RD$ 
GD$=SEG$(G$(Z),COL-1,LEN(G$(Z))) 3200 RETURN 

6G$ (7) =GS$&CHR$(X)&GD$ 3210 SS$=5EG$(S$(Z),1,COL-3) 

RETURN 3220 SD$=SEG$(5$(Z),COL-1,LEN(S$(Z))) 
HS$=SEG$ (H$ (Z),1,COL-3) 3230 S$(Z7)=SS$&CHR$(X)&SD$ 
HD$=SEG$(H$(Z),COL-1,LEN(H$(Z))) 3240 RETURN 

H$ (Z) =HS$&CHR$ (X) &HD$ 3250 TS$=SEG$(T$(Z),1,COL-3) 

RETURN 3260 TD$=SEG$(T$(Z),COL-1,LEN(T$(Z))) 
IS$=SE6G$(I$(Z),1,COL-3) 3270 T$(Z)=TS$&CHR$(X)&TD$ 
ID$=SEG$(I$(Z),COL-1,LEN(I$(Z))) 3280 RETURN 

1$(Z)=IS$&CHR$(X)&ID$ 3290 US$=SEG$(U$(Z),1,COL-3) 

RETURN 3300 UD$=SEG$(U$(Z),COL-1,LEN(U$(Z))) 
JS$=SEG$(J$(Z),1,COL-3) 3310 U$(Z)=US$&CHR$(X)&UD$ 
JD$=SEG$(J$(Z7),COL-1,LEN(J$(Z))) 3320 RETURN 

J$(Z)=JS$&CHR$ (X)&JD$ 3330 VS$=SEG$(V$(Z),1,COL-3) 

RETURN 3340 VD$=SEG$(V$(Z),COL-1,LEN(V$(Z))) 
KS$=SEG$ (K$(Z),1,COL-3) 3350 V$(Z)=VS$&CHR$(X)&VD$ 

KD$=SEG$ (K$(Z),COL-1,LEN(K$(Z))) 3360 RETURN 

K$ (Z) =KS$&CHR$ (X) &KD$ 3370 WS$=SEG$(W$(Z),1,COL-3) 

RETURN 3380 WD$=SEG$(W$(Z7),COL-1,LEN(W$(Z))) 
LS$=SEG$(L$(Z),1,COL-3) 3390 W$(Z)=WS$&CHR$(X)&WD$ 
LD$=SEG$(L$(Z),COL-1,LEN(L$(Z))) 3400 RETURN 

L$(Z)=LS$&CHR$ (X)&LD$ 3410 REM ££ BUON LAVORO ££ 

RETURN 

MS$=SEG$(M$(Z),1,COL-3) 


MD$=SEG$ (M$(Z7),COL-1,LEN(M$(Z))) 
M$ (7) =MS$&CHR$ (X) &MD$ 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
ZIO 
220 
250 
240 
250 
260 
270 


CALL CLEAR 


CALL SCREEN(12) 

REM EFFEEKFFEEEELEFEEELY 

REM * SEGRETERIA * 
REM * ELETTRONICA * 
REM * 

REM * TI BASIC * 

REM + * 

REM * * 
REM KEEKKEKKKEEEEKEEKKEELKK 


OPTION BASE 1 

DIM A$(5,60),0$(5),C$(6),P1(3),P2(3) 
READ P1(1),P1(2),P1(3),P2(1) ,P2(2),P2(3) 
LSIZE=0 

OPT=1 

CALL CLEAR 

CALL SCREEN(12) 

PRINT " KEKKEKKKKEKKEKKKEKLEKKKsrKewtdp a 


FEEKFKEKKEEKKKoKk "so rorirore 


280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
390 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
Slo 
SI20 
S30 
540 
ertw18) 
360 
S70 
990 
990 
600 
410 
620 
630 
640 
650 
660 
&70 
680 
490 
700 
710 
720 


PRINT TAB(8):"1. RUBRICA 
GOSUB 2750 

IF KEY=49 THEN 370 
IF_KEY=50 THEN 340 

PRINT "RE-ENTER 1 OR 2" 
GOTO 290 

OPT=2 

RESTORE 3990 

GOTO 390 

RESTORE 38980 

GOSUB 3950 

N=0 

GOTO 750 

REM KEY INPUT FOR DATA SET UP 

PRINT :" ENTER":" E TO EXIT":" 


FLAGI=1 

FLAGZ=I 

I=N+1 

IF 1I=60 THEN 500 

PRINT 11" ##* ARRAY FULL (N=60)k##"1: 
GOSUB 2730 

RETURN 

PRINT 

INPUT C$(1):A${1,1) 

IF (A$(1,I)="E")+(A#$(1,I)="END") THEN 2450 
IF A$(1,1)="" THEN GIO 


IF A$(1,I)c>"R" THEN 590 

I=I-1 

N=I-1 

PRINT :" #*#** REENTER LAST SET x*#" 
GOTO 500 


FOR 2=2 T0 5 
INPUT C$(Z):A$(Z,1) 

NEXT Z 

GOSUB 670 

IF T>190 THEN 570 

GOSUB 700 

N=I 

GOTO 450 

REM MEMORY CHECK 
T=LEN(A$(1,I)&A$(2,1)&A$(3,I)&A$(4, DD&A$(5,1)) 
RETURN 

LSIZE=LSIZE+T 

IF LSIZE<3300 THEN 740 

CALL SOUND(200,800,4) 


:"#* WARNING *#* MEMORY GETTING FULL":" (LSIZE 


750 PRINT 


"::TAB(8)3"2. INVENTARIO" 


RK TO REENTER" 


3900) " 


"ISTR&(LSIZE)&"/ 
** HOME SECRETARY x*" 


740 RETURN 
=4 
760 GOSUB 2690 
770 PRINT " 
780 IF OPT=2 THEN 8IO 


750 SC 


790 PRINT TAB(10); "PHONE BOOK": 


800 GO0T0 820 


** THE HOME SECRETARY ##":" 


F10 PRINT TABGIO): "INVENTORY":: 
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=0 THEN 860 


850 IF FLAGI 


860 GOSUB 2750 
970 IF KEY« 


49 THEN 750 


tI 
» 


880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

ER’ 

980 

990 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
13550 
13560 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
IND 


IF KEY>57 THEN 750 

GOSUB 2690 

ON (KEY-48)GOSUB 920,940, 1310, 1420, 2780, 2170, 1770, 3560, 3780 
GOTO 750 

GOSUB 410 

RETURN 

REM DATA ALTERATION 


INPUT "WHICH ONE? ":M$ 
IF M$="" THEN 1290 
PRINT ::"ENTER"::" NEW DATA AT CURSOR"::" /D/ TO DELETE THE ITEM"::" *ENT 
FOR NO CHANGES": 
GOSUB 1560 1520 GOSUB 2730 
PRINT :: 1530 T=3 
FLAGI1=1 1540 IF KEY<>69 THEN 1580 
I=M 1550 T=1 
GOSUB 670 1560 IF M=1 THEN 16440 
=-T 1570 M=M-1 
GOSUB 700 1580 IF KEY<>88 THEN 1620 
INPUT A$(1,M)&"? ":P$ 1590 T=1 
IF P$="" THEN 1160 1600 IF M=N THEN 1640 
IF P$<>"/D/" THEN 1140 16510 M=M+1 
FOR Z=1 T05 1620 IF KEY<>70 THEN 1640 
A$(Z,M)="__" 1530 T=2 
NEXT Z 1640 RETURN 
GOSUB 2450 1550 REM SEARCH ROUTINE FOR SINGLE ITEM LISTING 
N=N-1 1560 IF ABS(ASC(M$)-53) >4 THEN 1710 
RETURN 1670 M=VAL (M$) 
A$(1,M)=P$ 1580 IF M<=N THEN 1700 
FLAG2=1 1690 M=N 
FOR 2=2 TO 5 1700 RETURN 
INPUT A$(Z,M)&" ":P$ 1710 FOR I=1 TO M 
IF P$="" THEN 1210 1720 M=I 
A$(Z,M)=P$ 1730 IF LEN(M$)>LEN(A$(1,I1))THEN 1750 
FLAG2=FLAG2+1 1740 IF M$=SEG$(A$(1,I),1,LEN(M$))THEN 1760 
NEXT Z 1750 NEXT I 
GOSUB 670 1760 RETURN 
IF T<192 THEN 1260 1770 REM LOAD DATA 
PRINT :"#** REENTER LAST SET »+" 1780 PRINT "ENTER"::"1. CS1"::"2. DISK1"::"3. OTHER" 
GOSUB 1050 1790 INPUT DEV 
GOSUB 700 1800 IF DEV<>1 THEN 1830 
GOSUB 1510 1810 S$="CS1" 
ON T GOTO 1050, 950, 1290 1820 GOTO 1880 
RETURN 1830 IF DEV<>2 THEN 1870 
REM DISPLAY ENTIRE DIRECTORY 1840 INPUT "ENTER FILE NAME: DSKk1.":F$ 
IF FLAG2=0 THEN 1330 1850 S$="DSK1."&F$ 
GOSUB 2450 1860 GOTO 1880 
FOR I=1 TON 1870 INPUT "ENTER DEVICE NAME: ":5%$ 
M=28-LEN(A$(2,1)) 1880 OPEN £2:5S$, INTERNAL, INPUT ,FIXED 192 
T$=STR$(I)&"." 
PRINT TAB(4-LEN(T$)):T$5A$(1,I);TAB(M);A$(2,I) 
IF INT(I/10)<>I/10 THEN 1390 
GOSUB 2730 
NEXT I 
GOSUB 2730 
RETURN 
REM SINGLE ITEM LISTING 
INPUT "WHICH ONE? ":M$ 
IF M$="" THEN 1500 
GOSUB 1660 
GOSUB 2690 
PRINT A$(1,M)::A$(2,M)::A$(3,M)::A$(4,M)::A$(5,M):: 
GOSUB 1510 
ON T GOTO 1460, 1430, 1500 
RETURN 
PRINT :"PRESS"::" E FOR PREVIOUS RECORD"::"  X FOR NEXT RECORD"::" F TOF 
ANOTHER RECORD" 


1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
21350 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2520 
2350 
2540 
2350 
2560 
2370 
2390 
2390 
2400 
2410 
2420 
2450 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 


INPUT £2:0,NT,F$,D$,LSIZE 

IF 0=0PT THEN 2000 

IF 0=2 THEN 1940 

PRINT ::"FILE IS A PHONE BOOK TYPE":: 
GOTO 1950 

PRINT :: "FILE IS AN INVENTORY TYPE":: 
PRINT "PROCEDE (Y/N)?" 

GOSUB 2750 

IF KEY<>78 THEN 1990 


RETURN 
IF KEY<>89 THEN 1960 


OPT=0 

N=NT 

IF OPT=1 THEN 2060 
RESTORE 3890 
GOSUB 3850 

GOTO 2080 

RESTORE 3880 


2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 


FOR I=1 TO N-1 

FOR J=N TO I+1 STEP -1 

IF A$(F,I)<=A$(F,J)THEN 2580 
GOSUB 2630 

NEXT J 

IF A$(F,I)<>A$(F,I+1)THEN 2610 
I=I+1 

NEXT I 

RETURN 

FOR Z=1 TO 5 

0$(Z)=A$(Z,1) 
A$(Z,1)=A$(Z,J) 
A$(Z,J)=0$(Z) 

NEXT Z 

RETURN 

REM CLEAR & SET SCREEN 
CALL CLEAR 


GOSUB 3850 
PRINT ::F$::"LSIZE(3800)="5LSIZE:: "LAST UPDATE: "5D$:: 

FOR I=1 TO N 

INPUT £2:A$(1,1),A$(2,1),A$(3,1),A$(4,1),A$(5,1) 

NEXT I 

IF DEV=i THEN 2150 2710 CALL SCREEN(SC) 

FOR TD=1 TO 1000 2720 RETURN 

NEXT TD 2730 REM KEY RETURN 

CLOSE £2 2740 PRINT :: "PRESS ANY KEY TO CONTINUE" 
RETURN 2750 CALL KEY(0,KEY, STATUS) 

REM SAVE DIRECTORY 2760 IF STATUS=0 THEN 2750 


IF FLAG2=0 THEN 2200 


2770 


RETURN 


GOSUB 2450 2780 REM UTILITY PROGRAMS 
PRINT "ENTER 1. CS1" 2790 IF OPT=1 THEN 2940 
PRINT " 2. DSK1" 2800 SUM=0 
PRINT " 3. OTHER":::: 2810 FOR I=1 TO N 
INPUT "YOUR CHOICE?":ANS 2820 SUM=SUM+VAL (A$(2.1)) 
IF (ANS<1)+(ANS>3) THEN 2200 2830 NEXT I 
ON ANS GOTO 2260, 2280, 2340 2840 PRINT "TOTAL COST OF ALL THE ITEMS"::: 
S$="CS1" 2850 PRINT ::::TAB(10)5SUM:::::s::: 
GOTO 2350 2860 CALL HCHAR(11,7,36,18) 
INPUT "ENTER FILE NAME: DSK1.":N$ 2870 CALL HCHAR(19,7,36,18) 
IF LEN(N$)<11 THEN 2320 
PRINT "ENTER NO MORE THAN TEN LETTERS PLEASE. " 

nn 
Lia 2880 CALL VCHAR(12,7,36,7) 
pri E 2890 CALL VCHAR(12,24,36,7) 

i 2900 GOSUB 2730 
INPUT "ENTER DEVICE NAME. ":5$ iii 
INPUT "ENTER DATE. ":D$ piso iclo gie SERIE 
OPEN £3:5$, INTERNAL, OUTPUT, FIXED 192 °° 
PRINT £3:0PT,N,5$,D$,LSIZE ca i TIME DELAYS FOLLOW 
Pol peo OR n 2950 IF M$="" THEN 3200 
PRINT £3:A$(1,1),A$(2,1),A$(3,1),A$(4,1),A$(5,1) 2350 1 M82 n 
NEXT I 2970 H=23 
CLOSE £3 ni a 
dc) 2990 T$=A$(2,M) 

3000 L=LEN(T$) 

REM SORTING ROUTINE 


3010 PRINT A$(1,M):A$(2,M):A$(3,M):A$(4,M):A$(5,Mit:: 


PRINT "SORT BY WHICH FIELD: " 
FOR Z=1 TO 5 

PRINT Z5". "5C$(Z) 3020 IF L<10 THEN 3050 
NEXT Z 3030 L=L+1 

INPUT F 3040 T$="1"&T$ 

IF (F<1)+(F>5)THEN 2450 3050 FOR J=1 TOL 
FLAG2=0 3060 P$=SEG$(T$,J,1) 


CALL SOUND (100,800, 6) 
PRINT #**%** SORTING DATA #****"::: 


3070 CALL HCHAR(H,V.,ASC(P$)) 


3290 RETURN 

3300 REM STOP WATCH 

3310 MN=0 

3320 SEC=0 

3330 CALL HCHAR(23, 25,58) 

3340 CALL SOUND(5,660,0) 

3350 CALL SOUND(900, 44000, 30) 

3360 IF MN>9 THEN 3400 

3370 CALL HCHAR(23, 23,48) 

3380 CALL HCHAR(23, 24, ASC(STR$(MN))) 
3390 GOTO 3420 

3400 CALL HCHAR(23,23,ASC(STR$(MN))) 
3410 CALL HCHAR(23, 24, ASC(SEG$(STR$(MN),2,1))) 
3420 IF SEC>9 THEN 3460 

3430 CALL HCHAR(23, 26,48) 

3440 CALL HCHAR(23,27,ASC(STR$(SEC))) 
3450 GOTO 3480 

3460 CALL HCHAR(23,26,ASC(STR$(SEC))) 
3470 CALL HCHAR(23,27,ASC(SEG$(STR$(SEC),2,1))) 
3480 SEC=SEC+1 

3490 IF SEC<60 THEN 3520 

3500 SEC=0 

3510 MN=MN+1 

3520 CALL KEY(0,K,5) 

3530 IF S=0 THEN 3340 

3540 IF K=82 THEN 2960 

3550 RETURN 

3560 REM COMPLETE LISTING ON PRINTER 
3570 ST$=PS$ 

3580 M$="ENTER DEVICE NAME: "8PS$ 
3590 INPUT M$:PS$ 

3600 IF PS$<>"" THEN 3630 

3610 PS$=ST$ 

3620 IF PS$="" THEN 3770 

3630 PRINT "IS ";5PS$;" READY?(Y/N)" 
3640 GOSUB 2750 

3650 IF KEY<>89 THEN 3770 

3660 OPEN £3:PS$, OUTPUT 

3670 T=INT(N/9) 

3680 FOR J=0 TOT 

3690 FOR M=1 T0 9 

3700 I=9#J+M 

3710 PRINT £3:TAB(5);13")"5TAB(10);A$(1,I):TAB(10);A$(2,I1):TAB(10);A$(3,I):TAB(1 
0)3A$(4,I):TAB(10);A$(5,I)s: 

3720 IF I=N THEN 3760 

3730 NEXT M 

3740 GOSUB 2730 

3750 NEXT J 

3760 CLOSE £3 

3770 RETURN 

3780 PRINT "DO YOU WISH TO HALT THE PROGRAM AND LOSE ALL DATA INMEMORY? (Y/N 
) dial 

3790 CALL KEY(0,K,S) 

3800 IF S=0 THEN 3790 

3810 IF K=78 THEN 750 

3820 IF K<>89 THEN 3770 

3830 CALL CLEAR 

3840 END 

3850 READ C$(1),C$(2),C$(3),C$(4),C$(5) 

3860 RETURN 

3870 DATA 697,770,852,1210, 1340, 1481 

3880 DATA NAME:,PHONE:;ADDRESS:,CITY:, STATE&ZIP: 

3890 DATA ITEM :,VALUE :, LOCATION :, DATE PURCHASED :,SER £ OR ID: 


S TO START STOPWATCH":" 


R_ TO REDIAL":" 


VAL (P$) 
INT((T-1)/3)+1 
=T-3#(I-1) 


3170 CALL SOUND(300,P1(I),0,P2(IJ),2) 


3180 CALL SOUND (250, 44000, 29) 


3130 CALL SOUND(300,941,0,1336,2) 
3190 NEXT J 


3140 GOTO 3180 


3100 IF ASC(P$)>57 THEN 3190 
150 I 


3090 IF ASC(P$)<48 THEN 3190 
3110 T 

3120 IF T<>0 THEN 3150 

3200 PRINT :: "PRESS ":" 

FOR NEW NUMBER" 

3210 GOSUB 2730 

3220 IF KEY=82 THEN 2960 
3230 IF KEY=78 THEN 2940 
3240 IF KEY<>B3 THEN 3290 
3250 CALL HCHAR(14,1,32,320) 


3080 V=V+1 
3 
3160 IJ 


"ANY KEY TO RETURN TO MENU"::: 


3270 GOSUB 3310 


3260 PRINT :"HOLD DOWN ":"R TO DIAL AGAIN" 
3280 IF T=82 THEN 2940 


ADDIZIONE , SOTTRAZIONE , MOLTIPLICAZIONE _, 
DIVISIONE _, PERCENTUALE , RADICE QUADRATA, 
RAPPORTO IN ZX TRA 2 NUMERI, MEDIA 
downloaded from siptiSSiuc.it 

10 DATA 0000003848483400, 0040407048483000, 0000003840403800, 0008083848483400, 0000 

1C223C201C, 0018282038202000 

20 DATA 0000384848380830, 0020203824242400,0010003010193800, 0010003010105020, 0040 

35060504800, 0030101010103800 

30 DATA 0000006C54545400, 0000007848484800, 0000003048483000, 0000705848704040, 0038 

4848380808, 0000002830202000 

40 DATA 0000182038083000, 0010103810101800, 0000004848483400, 0000002424281000, 0000 

4454542800, 0000002810282800 

50 DATA 0000004848301020, 0000003810203800 

60 RESTORE 10 

70 FOR Z0=65 TO 90 (2 

BO READ Z$ Asic 

90 CALL CHAR(Z0,Z%$) 

100 NEXT Z0 

110 CALL CLEAR 

120 DIM A(100),L(100) 

1350 PRINT " CALCOLATRICE "::: 

140 PRINT "1. ADDIZIONE-SOTTRAZIONE":"2. MOLTIPLICAZIONE ":"3. DIVISIONE" 

150 PRINT "4. PERCENTUALE":"5. RADICE QUADRATA ":"6. RAPPORTO IN % TRA 2 NUM.":" 

7. MEDIA": 

160 PRINT "8. OPERAZIONI COMBINATE":"9. FINE": 

170 CALL KEY(0,KK,ST) 

180 IF ST=0 THEN 170 

190 IF (Kk<49)+(KK>57)THEN 170 

200 KKK=KK-48 

210 ON KKK GOTO 220,550, 670, 780, 900, 980, 1070, 1250, 1710 

220 CALL CLEAR 

250 PRINT TAB(9): "ADDIZIONE "::: 

240 PRINT "PER LA SOTTRAZIONE DEVI FAR PRECEDERE IL NUMERO DA SOT- TRARE IL SEGN 

D =). "rs 

250 KKk=100 

260 B=0 

270 FOR K=1 TO KK 

280 PRINT "NUMERO. "3K5; 

290 INPUT A{K) 

300 IF A(Kk)=0 THEN 330 

310 B=B+At{K) 

320 NEXT K 

3350 FOR K=1 TO KK 

340 IF A{K)=0 THEN 370 

350 PRINT TAB(20-LEN(STR$(ACK))))5;A(K) 

360 NEXT K 

370 PRINT "---------------_------------ ":"TOTALE=": TAB(20-LEN(STR$(B)))sB 

380 PRINT :"voui rivedere il conto?(s/n)" 

390 GOSUB 1210 

400 GOTO 410 

410 FOR K=1 TO KK 

420 IF A(K)=0 THEN 370 

4350 PRINT : "NUM. "ks TAR(20-LEN(STR$(ACK))))sA(K) 

440 PRINT "vuoi modificare ? (s/n)": 

450 CALL KEY(0,5,5S) 

460 IF SS=0 THEN 450 

470 IF S=78 THEN 530 

480 IF S<>*83 THEN 450 

490 B=B-A{(K) 

300 PRINT :"NUVO NUM. "; 

310 INPUT AK) 

320 B=B+A(K) 

3530 NEXT K 

3540 GO0T0 370 

3550 CALL CLEAR 

360 PRINT " MOLTIPLICAZIONE ":::: 


570 
380 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
200 
810 
820 
830 
840 
850 
860 
870 
880 
290 
900 
910 
920 
930 
940 
950 
960 
970 
990 
990 


FOR K=1 TO 2 

INPUT "NUMERO ":X(K) 

NEXT K 

PRINT TAB(20-LEN(STR$(X(1))))sX(1)s"X" 

PRINT TAB(20-LEN(STR$(X{2))))5X(2) 

Y=X(1)*X(2) 

PRINT "--------------------------- ":"TOTALE="3TAB(20-LEN(STR$(Y)));Y 
PRINT :: "ANCORA MOLTIPLICAZINI (S/N) ?" 

GOSUB 1210 

GOTO 550 

CALL CLEAR 

PRINT " DIVISIONE":::: 

FOR k=1 TO 2 

INPUT "NUMERO ":NCK) 

NEXT K 

NN=N(1)/N(2) 

PRINT TAB(15)N(1)s":"5N(2) 

PRINT; <«=mo--=snssre=ncass=szanbent=a ":"TOTALE="; TAB{20-LEN(STR$ (NN) )) NN 
PRINT :: "ANCORA DIVISIONI (S/N) ?" 

GOSUB 1210 

GOTO 670 

CALL CLEAR 

PRINT " PERCENTUALE": :: 

INPUT "NUMERO ":NU 

INPUT "PERC. % ":P 

TOT=NU*P/100 

TOT1=NU+TOT 

TOT2=NU-TOT 

PRINT "=-_===-———=====--= "i"IL "sPs"% DI"sNU$ "E" "TOT 
PRINT ::"% AGGIUNTA ="53TOT1:"% SOTTRATA ="sTOT2:: 

PRINT "ANCORA (S/N) ?": 

GOSUB 1210 

GOTO 780 

CALL CLEAR 

PRINT " RADICE QUADRATA"::: 
INPUT "NUMERO ":Q 

W=SOR (Q) 

PRINT :"LA RADICE QUADRATA DI":05"E"" 
PRINT :: "ANCORA S/N)?"; 

GOSUB 1210 

GOTO 900 

CALL CLEAR 

PRINT "RAPPORTO TRA 2 NUMERI IN %":: 


pa 
I 
' 
I 
I 
I] 
| 
I 
I 
I 
I 
I 
I 
I 
I 
I 


1000 INPUT "1.NUMERO.":A1 


1010 


INPUT "2.NUMERO. ":A2 


1020 A3=A1/A2*100 


1030 


PRINT ::"IL RAPPORTO FRA"3 A1ls"E"sA2: "E" DEL "sA355 "7": 


1040 PRINT "ANCORA (S/N) ?" 


1050 


GOSUB 1210 


1060 GOTO 980 


1070 


CALL CLEAR 


1080 PRINT " MEDIA":: 


1090 


Q=0 


1100 FOR K=1 TO 100 


1110 
1120 
11530 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 


PRINT "NUM. "5K5"="; 
INPUT L(K) 

Q=Q+L (K) 

IF L(K)=0 THEN 1160 
NEXT K 

ME=Q/ (K=1) 

PRINT :"LA MEDIA E'=";ME 
PRINT :: "ANCORA (S/N) " 
GOSUB 1210 

GOTO 1070 

CALL KEY(0,K,S) 


1220 IF S=0 THEN 1210 
1230 IF K=83 THEN 1240 ELSE 110 
1240 RETURN 

1250 CALL CLEAR 

1251 PRINT "BATTI <O> PER RICOMINCIARE OPERAZIONI. 
R TORNARE AL TITOLO"::: 
1260 PRINT "N."; 

1270 INPUT AA 

1280 PRINT TAB(23-LEN(STR$(AA)));AA 
1290 CALL SOUND(50,345,0) 
1300 CALL KEY(0,KKK,5SS) 
1310 IF SSS=0 THEN 1300 
1320 IF KKK=43 THEN 1390 
1330 IF KKK=45 THEN 1460 
1340 IF KKK=47 THEN 1530 
1350 IF KKK=42 THEN 1500 
1355 IF KKK=37 THEN 1701 
1360 IF KKK=70 THEN 110 
1370 IF KKK=48 THEN 1250 
1380 GOTO 1300 

1390 CALL HCHAR(23, 26,43) 
1400 PRINT "N."; 

1410 INPUT NN 

1420 GOSUB 1690 

1430 AA=AA+NN 

1440 GOSUB 1670 

1450 GOTO 1290 

1460 CALL HCHAR (23, 26,45) 
1470 PRINT "N."5 

1480 INPUT NN 

1490 GOSUB 1690 

1500 AA=AA-NN 

1510 GOSUB 1670 

1520 GOTO 1290 

1530 CALL HCHAR(23, 26,58) 
1540 PRINT "N."5 

1550 INPUT NN 

1560 GOSUB 1690 

1570 AA=AA/NN 

1580 GOSUB 1670 

1590 GOTO 1290 

1600 CALL HCHAR(23, 26,120) 
1610 PRINT "N."; 

1620 INPUT NN 

1530 GOSUB 1690 

1640 AA=AR*NN 

1650 GOSUB 1670 

1660 GOTO 1290 

1570 CALL HCHAR(23, 26,61) 
1671 PRINT "------------------------ ": TAB(23-LEN(STR$(AA)))5AA 
1680 RETURN 

1590 A$=STR$ (NN) 

1691 FOR K=1 TO LEN(A$) 
1692 CALL HCHAR(23,25-LEN(A$)+K,ASC(SEG$(A$,k,1))) 
1693 NEXT K 

1700 RETURN 

1701 CALL HCHAR(23, 26,37) 
1702 PRINT "N.": 

1703 INPUT NN 

1704 GOSUB 1690 

1705 AA=AA*NN/100 

1706 GOSUB 1670 

1707 GOTO 1290 

1710 END 


BATTI 


<«f> PE 


CARTUCCE SSS ANCORA DISPONIBILI 


RICHIEDETELE E SE ANCORA DISPONIBILI SPEDIREMO IN CONTRASSEGNO.NON INVIATE SOLDI 
WUMPUS.-<- nun LIRE 22.000 
MUNCHMAN. .- - ---..-..--...-...- - LIRE 40.000 
ALIEN ADDITION DIDATTICO 25.000 
DEMOLITION DIVISION DID... - LIRE 25.000 
ALLIGATOR MIX DIDATTICO 25.000 
METEOR MOLTIPLICATION DID. -LIRE 25.000 
DRAGON MIX DIDATTICO... 25.000 
CONNECT FOUR DIDATTICO. ... 25.000 
40.000 
NUMERAZIONE N.2 DIDATTICO. 25.000 
ADDITION DIDATTICO. ..-..... 25.000 
EARLY READING. .--..-...... 25.000 
MATHE GAME VI DIDATTICO... 25.000 
ADDIZIONI SOTTRAZIONI. . 25.000 
PERSONAL REPORT GENERATOR SO. 000 
PROFESSORE DI DATTILOGRAFIA. 40. 000 
MATH GAME II DIDATTICO. ..... 25.000 
NUOVI NUOVI NUOVI NUOVI NUOVI NUOVI 


DEFENDER ATARI SOFT... LIRE 78. 000 
PACMAN ATARI SOFT - . LIRE 78. 000 
DONKEY KONG ATARI SOFT... ...LIRE 78.000 





dovnicaded from ppi Ssiucit 


410 PRINT 100 CALL CLEAR 

420 FOR J=1 TO NJ 110 PRINT "SIMULAZIONE DEL LOTTO" Basic 
430 N(J)=0 120 DIM T(6) 

440 FOR I=1 TO 6 130 RANDOMIZE 

450 FOR K=1i TO 6 140 INPUT "NUMERO DEI GIOCATORI (1 A 8) ":NJ 
460 IF P(J,K)<>T(I)THEN 480 150 DIM N(8),P(8,6) 

470 N(J)=N(J)+1 160 REM 

480 NEXT K 170 PRINT 

490 NEXT I 180 FOR J=1 TO NJ 

500 NEXT J 190 PRINT "GIOCATORE N. ";J 

510 REM 200 FOR I=1 TO 6 

S20 FOR L=i TO NJ 210 INPUT "DAMMI UN NUMERO (DA 1 A 90) ":P(J,I) 
530 MAX=-1 220 IF P(J,I)<1 THEN 210 
540 FOR J=1 TO NJ 250 IF P(J,I)>90 THEN 210 

550 IF N(J)<=MAX THEN 580 240 NEXT I 

560 MAX=N(J) 250 PRINT 

570 PO=J 260 NEXT J 

580 NEXT J 270 REM 

590 PRINT PO; 280 CALL CLEAR 

500 FOR I=1 T0 6 290 PRINT : "GIRO " 

610 PRINT " "5STR$(P(PO,I)); 300 FOR I=1 TO 6 

20 NEXT I 310 CALL SOUND(100,110*I,5) 

630 PRINT TAB(24);N(PO) 320 T(I)=INT(RND#90)+1 

640 N(PO)=-1 3350 IF I=1 THEN 370 

650 NEXT L 340 FOR D=1 TO I-1 

660 REM 350 IF T(I)=T(D)THEN 320 

670 PRINT 360 NEXT D 

680 INPUT "ANCORA ?(S/N) ":R$ 370 PRINT T(I1);" "; 

690 IF R$="S" THEN 140 380 NEXT I 

700 IF R$<>"N" THEN 680 390 REM 


710 END 400 PRINT : "CLASSIFICA": "GIOCATORE BONUS A NOI" 


10 CALL CLEAR :: PRINT RPT$("*",28):TAB(9); "INTEGRALE": TAB(6);"DI CONVOLUZIONE": 
RPT$("*", 28) 


20 PRINT :: PRINT "IMPOSTARE 6=G(T) A PARTIRE DALL’ISTRUZIONE 1000" 
30 PRINT :"IMPOSTARE U=U(T) A PARTIRE  DALL’ISTRUZIONE 2000" 


40 PRINT :"PER ESEGUIRE IL CALCOLO SCRIVERE RUN 100" 
50 PRINT : "PREMERE ENTER PER SOSPENDEREIL CALCOLO" 
60 STOP 


100 CALL CLEAR :: INPUT "INTERVALLO DI VISUALIZZAZIO_NE CSEC] ":DT :: N=2 :1 H=D 
110 DIM VG(200),VU(200),VY (100) 

120 CALL U(0,VU(0)):: CALL G(0,VG(0)):: VY(0)=0 :: PRINT 0,0 

130 I=0 :: CALL G((N-1)#H,VG(N-1)):: CALL G(N#*H,VG(N)):: CALL UC(N-1)+H,VU(N=1)) 
:: CALL U(N*H, VUCN)) 

140 FOR K=1 TO N-1 STEP 2::: 

150 FOR K=2 TO N-2 STEP 2 :: 

160 I=1+VG(N) #VU(0) +VUCN) *VG( 
170 PRINT N#H,I 

180 N=N+2 :: IF N>200 THEN STOP 

190 CALL KEY(3,KEY,ST):: IF KEY=13 THEN 190 ELSE 130 
1000 REM IMPOSTARE LA FUNZIONE G(T) 

1010 SUB G(T,6) 

1030 SUBEND 

2000 REM IMPOSTARE LA FUNZIONE UCT) 

2010 SUB UC(T,U) 

2030 SUBEND 


I=1+4#*VG (N-K)#VU(K)s:: NEXT K 
I=1+2#VG (N-K)#VU(K)s:: NEXT K 
O):: I=1I*H/3 :: VY(N/2)=I 


MATERIALE DISPONIBILE NEL CLUB 


MANUALE IN ITALIANO;- COME PROGRAMMARE IN ASSEMBLER CON LA MINIMEMORY. ALLEGATA 
LA REFERENZE CARD DELL'EDITOR ASSEMBLER, IL LISTATO DISASSEMBLATORE E SU LISTATI 
DI PROGRAMMI VARI........0000% 

MANUALE ITALIANO EXTENDED BASIC. 190. PAGINE DI TRADUZIONE PER CAPIRE QUESTO FA 
VOLOSO LINGUAGGIO NEI MINIMI PARTICOLARI 

MANUALE TMS 9900, SCHEMI DEL MICROPROCESSORE E TUTTI GLI SCHEMI ELETTRICI ‘DEL 
NOSTRO TI 99, COMPRESO IL BOX, L’ESPANSIONE, IL SINTETIZZATORE ..LIRE .....19.000 
VOLUME -TI 99 COMPUTER- DI TOWSEND IN INGLESE. MOLTO UTILE 12.000 
LEZIONI DI EXTENDED BASIC INTERATTIVO.7 PROGRAMMI PIU® UN GIOCO SU 4 CASSETTE DA 
VEDERSI TUTTE PER IMPARARE A CAPIRE. MOLTI ESEMPI î 
LEZIONI DI BASIC. 8 PROGRAMMI INTERATTIVI SU 4 CASSETTE 

JOYSTICK TEXAS COPPIA.....0000 0000000 » 45,000 
LOGO SSS DELLA MONDADORI/LARICCIA CON VOLUME DEDICATO + 209.000 
ESPANSIONE 32 k IN SCHEDA PER IL BOX PERHIPHERAL.. “a +» 0.229.000 
ESPANSIONE 32 K PER ALLACCIAMENTO ALLA CONSOLLE DIRETTAMENTE....LIRE.....229,000 
INTERFACCIA 232 PER COLLEGAMENTO ESTERNO STAMPANTE PARALLELA....LIRE..... 240.000 
INTERFACCIA 232 IN SCHEDA PER IL BOX PERIPHERAL 240,000 
STAMPANTE MANNESMAN 80 COLONNE, 80 CARATTERI SECONDO, BIDIREZIONALE, FOGLIO SINGO 
LO O A TRATTORE, FORNITO DI CAVO PER LA RS232 780.000 
CAVETTI PER COLLEGAMENTO REGISTRATORE CONSOLLE 2.000 
MONITOR PRINCE PRANDONI 12 POLLICI FOSFORI VERDI E AUDIO 


PER LE RIVISTE -TUTTO TI 99- SONO DISPONIBILI SOLO I NUMERI 3,4,5 INVIARE CON 
VAGLIA ANTICIPATO LIRE 10.000 PER RICEVERLE. NON SPEDIAMO CONTRASSEGNO (COSTA ') 
CHI DESIDERA L'ELENCO GENERALE DEI PROGRAMMI (9 FOGLI ) INVIARE LIRE 1500 
OGNI PROGRAMMA SU CASSETTA SINGOLA COSTA LIRE 5000. NON ORDINATE 1 SOLA CASSETTA 
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Carlo Munari Carlo Randone 
Gianfranco Gunnella 





for donated us the magazines and help in scanning. 
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FRANCOMPUTER SHOP snc 


Corso Fogazzaro, 174-139 - VICENZA - Tel. 42679 - 36669 


asa perno rare ds? 





tto un mondo 
di Computer 
per Voi 





